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

Chez Scheme: remove a debugging leftover

Browse Source 
A do-nothing loop, which was probably a debugging check at some point,
wasn't correct and could break vfasl loading.
This commit is contained in:
Matthew Flatt 2020-12-26 10:14:57 -07:00
parent 4d7f52e7dd
commit 8869f0eb9e
1 changed files with 0 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racket/src/ChezScheme/c/vfasl.c
View File

@ -207,17 +207,6 @@ ptr S_vfasl(ptr bv, void *stream, iptr offset, iptr input_len)
VFASLHEADER_RTDREF_COUNT(header) * sizeof(vfoff),
VFASLHEADER_SINGLETONREF_COUNT(header) * sizeof(vfoff));
#endif
if (VSPACE_LENGTH(vspace_rtd) > 0) {
ptr rtd = TYPE(vspaces[vspace_rtd], type_typed_object);
ptr rtd_end = TYPE(VSPACE_END(vspace_rtd), type_typed_object);
while (1) {
rtd = ptr_add(rtd, size_record_type);
if (rtd == rtd_end)
break;
}
}
/* We have to convert an offset relative to the start of data in the
vfasl format to an offset relative to an individual space, at