CVS update by stephent xemacs/src ...

[xemacs-cvs at xemacs.org]

  User: stephent
  Date: 07/06/22 19:50:47

  Modified:    xemacs/src ChangeLog event-unixoid.c process-unix.c
Log:
More 64-bit fiddling (suppress warnings). <87r6o350q9.fsf at uwakimon.sk.tsukuba.ac.jp>

Revision  Changes    Path
1.1074    +6 -0      XEmacs/xemacs/src/ChangeLog

Index: ChangeLog
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/ChangeLog,v
retrieving revision 1.1073
retrieving revision 1.1074
diff -u -p -r1.1073 -r1.1074
--- ChangeLog	2007/06/22 17:39:04	1.1073
+++ ChangeLog	2007/06/22 17:50:36	1.1074
@@ -1,5 +1,11 @@
 2007-06-23  Stephen J. Turnbull  <stephen at xemacs.org>
 
+	* event-unixoid.c (event_stream_unixoid_create_io_streams):
+	* process-unix.c (unix_init_process_io_handles): 
+	Cast out bogus warnings about 64-bit value truncation.
+
+2007-06-23  Stephen J. Turnbull  <stephen at xemacs.org>
+
 	* linuxplay.c (linux_play_data_or_file): More 64-bit tweaking, and
 	a typo fix.
 



1.22      +5 -4      XEmacs/xemacs/src/event-unixoid.c

Index: event-unixoid.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/event-unixoid.c,v
retrieving revision 1.21
retrieving revision 1.22
diff -u -p -r1.21 -r1.22
--- event-unixoid.c	2003/02/07 11:50:53	1.21
+++ event-unixoid.c	2007/06/22 17:50:41	1.22
@@ -360,10 +360,11 @@ event_stream_unixoid_create_io_streams (
   int infd, outfd, errfd;
   /* Decode inhandle and outhandle. Their meaning depends on
      the process implementation being used. */
-  /* We are passed plain old file descs */
-  infd  = (int) inhandle;
-  outfd = (int) outhandle;
-  errfd = (int) errhandle;
+  /* We are passed plain old file descs, which are ints, so */
+  /* if sizeof(EMACS_INT) > sizeof(int) it's OK. */
+  infd  = (EMACS_INT) inhandle;
+  outfd = (EMACS_INT) outhandle;
+  errfd = (EMACS_INT) errhandle;
 
   *instream = (infd >= 0
 	       ? make_filedesc_input_stream (infd, 0, -1, 0)



1.59      +3 -2      XEmacs/xemacs/src/process-unix.c

Index: process-unix.c
===================================================================
RCS file: /pack/xemacscvs/XEmacs/xemacs/src/process-unix.c,v
retrieving revision 1.58
retrieving revision 1.59
diff -u -p -r1.58 -r1.59
--- process-unix.c	2006/04/01 16:21:11	1.58
+++ process-unix.c	2007/06/22 17:50:42	1.59
@@ -846,8 +846,9 @@ static void
 unix_init_process_io_handles (Lisp_Process *p, void *in, void *UNUSED (out),
 			      void *err, int UNUSED (flags))
 {
-  UNIX_DATA(p)->infd = (int) in;
-  UNIX_DATA(p)->errfd = (int) err;
+  /* if sizeof(EMACS_INT) > sizeof(int) this truncates the value */
+  UNIX_DATA(p)->infd = (EMACS_INT) in;
+  UNIX_DATA(p)->errfd = (EMACS_INT) err;
 }
 
 /* Move the file descriptor FD so that its number is not less than MIN. *