From 57a2b8511dc0d6d0392e66f0436f0a5f506fdad3 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 4 Jul 2020 10:10:33 -0600
Subject: [PATCH] unbreak [t]i3nt

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

original commit: a8eeb536aecc0e0a363aa68d43edafa7d6c9df52
---
 s/x86.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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