Mercurial > hg > xemacs-beta

diff 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
line wrap: on
line diff
--- a/src/dumper.c	Tue Jun 19 01:29:37 2001 +0000
+++ b/src/dumper.c	Tue Jun 19 01:35:38 2001 +0000
@@ -934,8 +934,8 @@
       obj.value   = * obj.address;
 
       if (POINTER_TYPE_P (XTYPE (obj.value)))
-	obj.value = wrap_record_1 ((void *)
-				   pdump_get_entry (XRECORD_LHEADER
+	obj.value =
+	  wrap_pointer_1 ((void *) pdump_get_entry (XRECORD_LHEADER
 						    (obj.value))->save_offset);
 
       PDUMP_WRITE (pdump_static_Lisp_Object, obj);
@@ -962,7 +962,7 @@
 
 	  obj.value = *(Lisp_Object *)(desc[pos].offset + (char *)(XRECORD_LHEADER (obj.value)));
 	}
-      obj.value = wrap_record_1 ((void *) elt->save_offset);
+      obj.value = wrap_pointer_1 ((void *) elt->save_offset);
 
       PDUMP_WRITE (pdump_static_Lisp_Object, obj);
     }
@@ -1149,7 +1149,7 @@
       pdump_static_Lisp_Object obj = PDUMP_READ (p, pdump_static_Lisp_Object);
 
       if (POINTER_TYPE_P (XTYPE (obj.value)))
-	obj.value = wrap_record_1 ((char *) XPNTR (obj.value) + delta);
+	obj.value = wrap_pointer_1 ((char *) XPNTR (obj.value) + delta);
 
       (* obj.address) = obj.value;
     }