From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 19 Aug 2019 22:33:00 +0000 (-0700)
Subject: Fix references incorrectly marked with EVR().
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~78
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8c8fc393e40fb78c96dbf075e85a9b828a1deb78;p=mit-scheme.git

Fix references incorrectly marked with EVR().
---

diff --git a/src/microcode/cmpauxmd/x86-64.m4 b/src/microcode/cmpauxmd/x86-64.m4
index 8089b3e72..0b2ee76fb 100644
--- a/src/microcode/cmpauxmd/x86-64.m4
+++ b/src/microcode/cmpauxmd/x86-64.m4
@@ -635,7 +635,7 @@ define_hook_label(apply_setup)
 asm_apply_setup_fail:
 	# Load the fallback address into rax, where compiled code will
 	# jump.
-	OP(lea,q)	TW(ABS(EVR(asm_sc_apply_generic)),REG(rax))
+	OP(lea,q)	TW(ABS(asm_sc_apply_generic),REG(rax))
 	ret
 
 define(define_apply_setup_fixed_size,
@@ -654,7 +654,7 @@ define_hook_label(apply_setup_size_$1)
 	ret
 
 asm_apply_setup_size_$1_fail:
-	OP(lea,q)	TW(ABS(EVR(asm_sc_apply_generic)),REG(rax))
+	OP(lea,q)	TW(ABS(asm_sc_apply_generic),REG(rax))
 	OP(mov,q)	TW(IMM(HEX($1)),REG(rdx))
 	ret')