X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=src%2Fgpmevent.c;h=d42c9ae20d97374302afb8f39026280fb8def01c;hb=1a936f63bafd600e7dd6e810a46a1fa469a2d31f;hp=a3c3d46a39c72ffaa1812892bad4ffe2f2faa76e;hpb=59eec5f21669e81977b5b1fe9bf717cab49cf7fb;p=chise%2Fxemacs-chise.git.1

diff --git a/src/gpmevent.c b/src/gpmevent.c
index a3c3d46..d42c9ae 100644
--- a/src/gpmevent.c
+++ b/src/gpmevent.c
@@ -112,7 +112,7 @@ This function is the process handler for the GPM connection.
 	Gpm_Event ev;
 	int modifiers = 0;
 	int button = 1;
-	Lisp_Object fake_event;
+	Lisp_Object fake_event = Qnil;
 	Lisp_Event *event = NULL;
 	struct gcpro gcpro1;
 	static int num_events;
@@ -217,9 +217,9 @@ tty_get_foreign_selection (Lisp_Object selection_symbol, Lisp_Object target_type
 	struct device *d = decode_device (Qnil);
 	int fd = DEVICE_INFD (d);
 	char c = 3;
-	Lisp_Object output_stream;
-	Lisp_Object terminal_stream;
-	Lisp_Object output_string;
+	Lisp_Object output_stream = Qnil;
+	Lisp_Object terminal_stream = Qnil ;
+	Lisp_Object output_string = Qnil;
 	struct gcpro gcpro1,gcpro2,gcpro3;
 
 	GCPRO3(output_stream,terminal_stream,output_string);
@@ -272,8 +272,8 @@ tty_get_foreign_selection (Lisp_Object selection_symbol, Lisp_Object target_type
 	while (1)
 	{
 		Bufbyte tempbuf[1024]; /* some random amount */
-		ssize_t i;
-		ssize_t size_in_bytes =
+		Lstream_data_count i;
+		Lstream_data_count size_in_bytes =
 		  Lstream_read (XLSTREAM (terminal_stream),
 				tempbuf, sizeof (tempbuf));
 
@@ -635,8 +635,8 @@ void vars_of_gpmevent (void)
 	gpm_event_queue_tail = Qnil;
 	staticpro (&gpm_event_queue);
 	staticpro (&gpm_event_queue_tail);
-	pdump_wire (&gpm_event_queue);
-	pdump_wire (&gpm_event_queue_tail);
+	dump_add_root_object (&gpm_event_queue);
+	dump_add_root_object (&gpm_event_queue_tail);
 }
 
 void syms_of_gpmevent (void)