Mercurial > hg > xemacs-beta

comparison src/dumper.c @ 545:9a775fb11bb7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-05-18 04:39:39 by kkm] My 3 patches of 05/01-05/03
author kkm
date Fri, 18 May 2001 04:39:44 +0000
parents 0784d089fdc9
children af57a77cbc92
comparison
equal deleted inserted replaced
544:ffd4d00ff0b6 545:9a775fb11bb7
42 #define SEPCHAR ':' 42 #define SEPCHAR ':'
43 #endif 43 #endif
44 44
45 typedef struct 45 typedef struct
46 { 46 {
47 void *varaddress; 47 const void *varaddress;
48 size_t size; 48 size_t size;
49 } pdump_opaque; 49 } pdump_opaque;
50 50
51 typedef struct 51 typedef struct
52 { 52 {
82 static Lisp_Object_ptr_dynarr *pdump_weak_object_chains; 82 static Lisp_Object_ptr_dynarr *pdump_weak_object_chains;
83 83
84 /* Mark SIZE bytes at non-heap address VARADDRESS for dumping as is, 84 /* Mark SIZE bytes at non-heap address VARADDRESS for dumping as is,
85 without any bit-twiddling. */ 85 without any bit-twiddling. */
86 void 86 void
87 dump_add_opaque (void *varaddress, size_t size) 87 dump_add_opaque (const void *varaddress, size_t size)
88 { 88 {
89 pdump_opaque info; 89 pdump_opaque info;
90 info.varaddress = varaddress; 90 info.varaddress = varaddress;
91 info.size = size; 91 info.size = size;
92 if (pdump_opaques == NULL) 92 if (pdump_opaques == NULL)
1112 1112
1113 /* Put back the pdump_opaques */ 1113 /* Put back the pdump_opaques */
1114 for (i=0; i<header->nb_opaques; i++) 1114 for (i=0; i<header->nb_opaques; i++)
1115 { 1115 {
1116 pdump_opaque info = PDUMP_READ_ALIGNED (p, pdump_opaque); 1116 pdump_opaque info = PDUMP_READ_ALIGNED (p, pdump_opaque);
1117 memcpy (info.varaddress, p, info.size); 1117 memcpy ((void*)info.varaddress, p, info.size);
1118 p += info.size; 1118 p += info.size;
1119 } 1119 }
1120 1120
1121 /* Do the relocations */ 1121 /* Do the relocations */
1122 pdump_rt_list = p; 1122 pdump_rt_list = p;