From 8869f0eb9e8df5adf30889c6004a819929ced540 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sat, 26 Dec 2020 10:14:57 -0700 Subject: [PATCH] Chez Scheme: remove a debugging leftover A do-nothing loop, which was probably a debugging check at some point, wasn't correct and could break vfasl loading. --- racket/src/ChezScheme/c/vfasl.c | 11 ----------- 1 file changed, 11 deletions(-) diff --git a/racket/src/ChezScheme/c/vfasl.c b/racket/src/ChezScheme/c/vfasl.c index 3ab4e383a1..f361355d69 100644 --- a/racket/src/ChezScheme/c/vfasl.c +++ b/racket/src/ChezScheme/c/vfasl.c @@ -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