steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix printing of negative fixnums in FEP

db4
Slava Pestov 2008-12-01 18:08:39 -06:00
parent 8b106b6a77
commit d59f8b10dc
3 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
vm/os-unix.h
View File

@ -23,6 +23,7 @@ typedef char F_SYMBOL;
#define STRNCMP strncmp #define STRNCMP strncmp
#define STRDUP strdup #define STRDUP strdup
#define FIXNUM_FORMAT "%ld"
#define CELL_FORMAT "%lu" #define CELL_FORMAT "%lu"
#define CELL_HEX_FORMAT "%lx" #define CELL_HEX_FORMAT "%lx"

8
vm/os-windows.h
View File

@ -20,13 +20,13 @@ typedef wchar_t F_CHAR;
#define STRNCMP wcsncmp #define STRNCMP wcsncmp
#define STRDUP _wcsdup #define STRDUP _wcsdup
#define FIXNUM_FORMAT "%Id"
#define CELL_FORMAT "%lu"
#define CELL_HEX_FORMAT "%Ix"
#ifdef WIN64 #ifdef WIN64
#define CELL_FORMAT "%Iu"
#define CELL_HEX_FORMAT "%Ix"
#define CELL_HEX_PAD_FORMAT "%016Ix" #define CELL_HEX_PAD_FORMAT "%016Ix"
#else #else
#define CELL_FORMAT "%lu"
#define CELL_HEX_FORMAT "%lx"
#define CELL_HEX_PAD_FORMAT "%08lx" #define CELL_HEX_PAD_FORMAT "%08lx"
#endif #endif

2
vm/utilities.c
View File

@ -44,7 +44,7 @@ void print_cell_hex_pad(CELL x)
void print_fixnum(F_FIXNUM x) void print_fixnum(F_FIXNUM x)
{ {
printf(CELL_FORMAT,x); printf(FIXNUM_FORMAT,x);
} }
CELL read_cell_hex(void) CELL read_cell_hex(void)