X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Flstream.c;h=42eb94097f94a7d67574fb20994677de808e5f45;hb=321ab38b7ab1e5c02b1f73abe463d040e06115bd;hp=16bbfe54718442c38bc9f7c76c4d56283ce2e54e;hpb=6883ee56ec887c2c48abe5b06b5e66aa74031910;p=chise%2Fxemacs-chise.git

diff --git a/src/lstream.c b/src/lstream.c
index 16bbfe5..42eb940 100644
--- a/src/lstream.c
+++ b/src/lstream.c
@@ -146,8 +146,8 @@ print_lstream (Lisp_Object obj, Lisp_Object printcharfun, int escapeflag)
   Lstream *lstr = XLSTREAM (obj);
   char buf[200];
 
-  sprintf (buf, "#<INTERNAL EMACS BUG (%s lstream) 0x%p>",
-	   lstr->imp->name, lstr);
+  sprintf (buf, "#<INTERNAL OBJECT (XEmacs bug?) (%s lstream) 0x%lx>",
+	   lstr->imp->name, (long) lstr);
   write_c_string (buf, printcharfun);
 }
 
@@ -188,7 +188,7 @@ sizeof_lstream (CONST void *header)
 
 DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream,
 					mark_lstream, print_lstream,
-					finalize_lstream, 0, 0,
+					finalize_lstream, 0, 0, 0,
 					sizeof_lstream, Lstream);
 
 void
@@ -232,7 +232,7 @@ Lstream_new (CONST Lstream_implementation *imp, CONST char *mode)
       lstream_types[lstream_type_count] = imp;
       Vlstream_free_list[lstream_type_count] =
 	make_lcrecord_list (sizeof (*p) + imp->size - 1,
-			    lrecord_lstream);
+			    &lrecord_lstream);
       lstream_type_count++;
     }
 
@@ -1617,8 +1617,8 @@ lisp_buffer_marker (Lisp_Object stream, void (*markobj) (Lisp_Object))
   struct lisp_buffer_stream *str =
     LISP_BUFFER_STREAM_DATA (XLSTREAM (stream));
 
-  (markobj) (str->start);
-  (markobj) (str->end);
+  markobj (str->start);
+  markobj (str->end);
   return str->buffer;
 }