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

@ -208,17 +208,6 @@ ptr S_vfasl(ptr bv, void *stream, iptr offset, iptr input_len)
VFASLHEADER_SINGLETONREF_COUNT(header) * sizeof(vfoff)); VFASLHEADER_SINGLETONREF_COUNT(header) * sizeof(vfoff));
#endif #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 /* 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 vfasl format to an offset relative to an individual space, at
least for target generations other than 0. Rely on the fact that least for target generations other than 0. Rely on the fact that