unbreak [t]i3nt

Commit 88d57da163 incorrectly merged, because the syntax of `mref` has
changed to support unboxed floating-point arithmetic.

original commit: a8eeb536aecc0e0a363aa68d43edafa7d6c9df52
This commit is contained in:
Matthew Flatt 2020-07-04 10:10:33 -06:00
parent ac0b1f71ca
commit 57a2b8511d

View File

@ -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))