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);
}
DEFINE_LRECORD_SEQUENCE_IMPLEMENTATION ("stream", lstream,
mark_lstream, print_lstream,
- finalize_lstream, 0, 0,
+ finalize_lstream, 0, 0, 0,
sizeof_lstream, Lstream);
\f
void
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++;
}
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;
}