Mercurial > hg > xemacs-beta

comparison src/dumper.c @ 619:8d7292eb4a18

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2001-06-19 01:35:35 by ben] dumper.c: wrap_record_1 -> wrap_pointer_1.
author ben
date Tue, 19 Jun 2001 01:35:38 +0000
parents af57a77cbc92
children b39c14581166
comparison
equal deleted inserted replaced
618:16ff693bd768 619:8d7292eb4a18
932 pdump_static_Lisp_Object obj; 932 pdump_static_Lisp_Object obj;
933 obj.address = Dynarr_at (pdump_root_objects, i); 933 obj.address = Dynarr_at (pdump_root_objects, i);
934 obj.value = * obj.address; 934 obj.value = * obj.address;
935 935
936 if (POINTER_TYPE_P (XTYPE (obj.value))) 936 if (POINTER_TYPE_P (XTYPE (obj.value)))
937 obj.value = wrap_record_1 ((void *) 937 obj.value =
938 pdump_get_entry (XRECORD_LHEADER 938 wrap_pointer_1 ((void *) pdump_get_entry (XRECORD_LHEADER
939 (obj.value))->save_offset); 939 (obj.value))->save_offset);
940 940
941 PDUMP_WRITE (pdump_static_Lisp_Object, obj); 941 PDUMP_WRITE (pdump_static_Lisp_Object, obj);
942 } 942 }
943 943
960 for (pos = 0; desc[pos].type != XD_LO_LINK; pos++) 960 for (pos = 0; desc[pos].type != XD_LO_LINK; pos++)
961 assert (desc[pos].type != XD_END); 961 assert (desc[pos].type != XD_END);
962 962
963 obj.value = *(Lisp_Object *)(desc[pos].offset + (char *)(XRECORD_LHEADER (obj.value))); 963 obj.value = *(Lisp_Object *)(desc[pos].offset + (char *)(XRECORD_LHEADER (obj.value)));
964 } 964 }
965 obj.value = wrap_record_1 ((void *) elt->save_offset); 965 obj.value = wrap_pointer_1 ((void *) elt->save_offset);
966 966
967 PDUMP_WRITE (pdump_static_Lisp_Object, obj); 967 PDUMP_WRITE (pdump_static_Lisp_Object, obj);
968 } 968 }
969 } 969 }
970 970
1147 while (i--) 1147 while (i--)
1148 { 1148 {
1149 pdump_static_Lisp_Object obj = PDUMP_READ (p, pdump_static_Lisp_Object); 1149 pdump_static_Lisp_Object obj = PDUMP_READ (p, pdump_static_Lisp_Object);
1150 1150
1151 if (POINTER_TYPE_P (XTYPE (obj.value))) 1151 if (POINTER_TYPE_P (XTYPE (obj.value)))
1152 obj.value = wrap_record_1 ((char *) XPNTR (obj.value) + delta); 1152 obj.value = wrap_pointer_1 ((char *) XPNTR (obj.value) + delta);
1153 1153
1154 (* obj.address) = obj.value; 1154 (* obj.address) = obj.value;
1155 } 1155 }
1156 1156
1157 /* Final cleanups */ 1157 /* Final cleanups */