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

fix random output in marshalled bytecode

Browse Source 
svn: r5256
This commit is contained in:
Matthew Flatt 2007-01-08 05:14:30 +00:00
parent be0c68af4b
commit 5c94083e0b
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -2525,7 +2525,7 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
print_number(pp, mt->st_refs->count + 1);
/* Print shared-value offsets: */
{
if (mt->st_refs->count) {
int all_short = shared_offsets[mt->st_refs->count-1] < 0xFFFF;
print_one_byte(pp, all_short);
for (j = 0; j < mt->st_refs->count; j++) {
@ -2534,6 +2534,8 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
else
print_number(pp, shared_offsets[j]);
}
} else {
print_one_byte(pp, 1);
}
print_number(pp, st_len);