suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix .zo writing of 1073741824 on 64-bit machine

Browse Source 
svn: r8127
This commit is contained in:
Matthew Flatt 2007-12-26 12:41:51 +00:00
parent 9f4f7670d1
commit add5fff586
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mzscheme/src/print.c
View File

@ -1718,7 +1718,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
print_this_string(pp, (char *)s, 0, 1); print_this_string(pp, (char *)s, 0, 1);
} else { } else {
/* Make sure it's a fixnum on all platforms... */ /* Make sure it's a fixnum on all platforms... */
if ((v >= -1073741824) && (v <= 1073741824)) { if ((v >= -1073741824) && (v <= 1073741823)) {
print_compact(pp, CPT_INT); print_compact(pp, CPT_INT);
print_compact_number(pp, v); print_compact_number(pp, v);
} else { } else {