From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 18 Feb 2021 20:56:01 +0000 (-0600)
Subject: asdf
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=c907db3459d915ab073f4e947f9bd1e50ac07ddb

asdf
---

diff --git a/basis/bootstrap/assembler/arm.64.factor b/basis/bootstrap/assembler/arm.64.factor
index 3d87e964c1..1121fe0de8 100644
--- a/basis/bootstrap/assembler/arm.64.factor
+++ b/basis/bootstrap/assembler/arm.64.factor
@@ -540,22 +540,24 @@ big-endian off
 
 ! Load a value from a stack position
 [
-    temp1 ds-reg 0x7f [+] MOV f rc-absolute-1 rel-untagged
+    ! temp1 ds-reg 0x7f [+] MOV f rc-absolute-1 rel-untagged
 ] PIC-LOAD jit-define
 
-[ temp1/32 tag-mask get AND ] PIC-TAG jit-define
+[
+    ! temp1/32 tag-mask get AND
+] PIC-TAG jit-define
 
 [
-    temp0 temp1 MOV
-    temp1/32 tag-mask get AND
-    temp1/32 tuple type-number CMP
-    [ JNE ]
-    [ temp1 temp0 tuple-class-offset [+] MOV ]
-    jit-conditional
+    ! temp0 temp1 MOV
+    ! temp1/32 tag-mask get AND
+    ! temp1/32 tuple type-number CMP
+    ! [ JNE ]
+    ! [ temp1 temp0 tuple-class-offset [+] MOV ]
+    ! jit-conditional
 ] PIC-TUPLE jit-define
 
 [
-    temp1/32 0x7f CMP f rc-absolute-1 rel-untagged
+    ! temp1/32 0x7f CMP f rc-absolute-1 rel-untagged
 ] PIC-CHECK-TAG jit-define
 
 [ 0 JE f rc-relative rel-word ] PIC-HIT jit-define