projects
/
chise
/
xemacs-chise.git-
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
update.
[chise/xemacs-chise.git-]
/
src
/
lstream.c
diff --git
a/src/lstream.c
b/src/lstream.c
index
16bbfe5
..
42eb940
100644
(file)
--- 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];
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);
}
write_c_string (buf, printcharfun);
}
@@
-188,7
+188,7
@@
sizeof_lstream (CONST void *header)
DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream,
mark_lstream, print_lstream,
DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream,
mark_lstream, print_lstream,
- finalize_lstream, 0, 0,
+ finalize_lstream, 0, 0, 0,
sizeof_lstream, Lstream);
\f
void
sizeof_lstream, Lstream);
\f
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,
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++;
}
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));
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;
}
return str->buffer;
}