diff --git a/s/x86.ss b/s/x86.ss index ea895fc5c5..5a2904bd42 100644 --- a/s/x86.ss +++ b/s/x86.ss @@ -1031,7 +1031,7 @@ (define-instruction effect invoke-prelude [(op) (constant-case machine-type-name - [(i3nt ti3nt) `(set! ,(make-live-info) ,%tc (mref ,%sp ,%zero 4))] + [(i3nt ti3nt) `(set! ,(make-live-info) ,%tc (mref ,%sp ,%zero 4 uptr))] [else (seq `(set! ,(make-live-info) ,%tc (mref ,%sp ,%zero 4 uptr))