Index: marshal.c
===================================================================
RCS file: /cvsroot/python/python/dist/src/Python/marshal.c,v
retrieving revision 1.72
diff -c -r1.72 marshal.c
*** marshal.c	14 Jun 2002 01:07:39 -0000	1.72
--- marshal.c	30 Jul 2002 11:01:21 -0000
***************
*** 84,100 ****
  static void
  w_short(int x, WFILE *p)
  {
! 	w_byte( x      & 0xff, p);
! 	w_byte((x>> 8) & 0xff, p);
  }
  
  static void
  w_long(long x, WFILE *p)
  {
! 	w_byte((int)( x      & 0xff), p);
! 	w_byte((int)((x>> 8) & 0xff), p);
! 	w_byte((int)((x>>16) & 0xff), p);
! 	w_byte((int)((x>>24) & 0xff), p);
  }
  
  #if SIZEOF_LONG > 4
--- 84,100 ----
  static void
  w_short(int x, WFILE *p)
  {
! 	w_byte((char)( x      & 0xff), p);
! 	w_byte((char)((x>> 8) & 0xff), p);
  }
  
  static void
  w_long(long x, WFILE *p)
  {
! 	w_byte((char)( x      & 0xff), p);
! 	w_byte((char)((x>> 8) & 0xff), p);
! 	w_byte((char)((x>>16) & 0xff), p);
! 	w_byte((char)((x>>24) & 0xff), p);
  }
  
  #if SIZEOF_LONG > 4