From a940c7a43bc8f77d39c9d7de1a5b632195ac53cd Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 29 Nov 2020 15:09:05 -0700 Subject: [PATCH] Chez Scheme: repair pb code endian swap --- racket/src/ChezScheme/c/fasl.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/racket/src/ChezScheme/c/fasl.c b/racket/src/ChezScheme/c/fasl.c index fce37634fc..4308545e38 100644 --- a/racket/src/ChezScheme/c/fasl.c +++ b/racket/src/ChezScheme/c/fasl.c @@ -1968,7 +1968,7 @@ static void swap_code_endian(octet *code, uptr len) if (a == pb_adr) { /* delta can be negative for a mvlet-error reinstall of the return address */ - iptr delta = (int16_t)(uint16_t)(((uptr)d << 16) + c); + iptr delta = (int16_t)(uint16_t)(((uptr)d << 8) + c); if (delta > 0) { /* after a few more instructions, we'll hit a header where 64-bit values needs to be