/* -*-C-*-
-$Id: bintopsb.c,v 9.76 2003/02/14 18:28:15 cph Exp $
+$Id: bintopsb.c,v 9.77 2006/08/27 15:49:30 cph Exp $
-Copyright (c) 1987-2001 Massachusetts Institute of Technology
+Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
+Copyright 1992,1993,1994,1997,1998,2000 Massachusetts Institute of Technology
+Copyright 2001,2005,2006 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
break;
case TC_CHARACTER:
- fprintf (portable_file, "%02x %03x\n",
+ fprintf (portable_file, "%02x %06x\n",
TC_CHARACTER, ((*from) & MASK_MIT_ASCII));
from += 1;
break;
/* -*-C-*-
-$Id: psbtobin.c,v 9.61 2003/02/14 18:28:23 cph Exp $
+$Id: psbtobin.c,v 9.62 2006/08/27 15:49:37 cph Exp $
-Copyright (c) 1987-2001 Massachusetts Institute of Technology
+Copyright 1986,1987,1988,1989,1990,1991 Massachusetts Institute of Technology
+Copyright 1992,1993,1994,2000,2001,2005 Massachusetts Institute of Technology
This file is part of MIT/GNU Scheme.
case TC_CHARACTER:
{
- long the_char_code;
+ unsigned long the_char_code;
getc (portable_file); /* Space */
VMS_BUG (the_char_code = 0);
- fscanf (portable_file, "%3lx", &the_char_code);
+ fscanf (portable_file, "%6lx", &the_char_code);
*Table++ = (MAKE_OBJECT (TC_CHARACTER, the_char_code));
continue;
}
}
case TC_CHARACTER:
fprintf (stderr,
- "Table[%6d] = Character %c = 0x%02x\n",
+ "Table[%6d] = Character 0x%06x\n",
(N - (Table_End - Table)),
- (OBJECT_DATUM (*Table)),
(OBJECT_DATUM (*Table)));
break;