From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 19 Jan 2019 23:56:55 +0000 (+0000)
Subject: Fix some symbol sizing.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~56
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=95dd00b1b18ad0c035259c4902c2e8b2aa007322;p=mit-scheme.git

Fix some symbol sizing.
---

diff --git a/src/microcode/cmpauxmd/aarch64.m4 b/src/microcode/cmpauxmd/aarch64.m4
index e6f6cf35a..2618cb881 100644
--- a/src/microcode/cmpauxmd/aarch64.m4
+++ b/src/microcode/cmpauxmd/aarch64.m4
@@ -283,7 +283,7 @@ END(apply_setup)
 LOCAL(apply_setup_fail)
 	mov	UIDX, #0x14	// comutil_apply
 	b	SYMBOL(scheme_to_interface)
-END(apply_setup)
+END(apply_setup_fail)
 
 ///////////////////////////////////////////////////////////////////////////////
 // Scheme miscellaneous primitive subroutine hooks
@@ -315,11 +315,12 @@ END(set_interrupt_enables)
 	//	Hook that just jumps to target, no questions asked.
 	//
 define(JUMP_HOOK, `
-$1:
+LOCAL($1)
 	b	SYMBOL($2)
 	nop
 	nop
-	nop')
+	nop
+END($1)')
 
 	// UTILITY_HOOK(name, number)
 	//
@@ -331,11 +332,12 @@ $1:
 	//	utility_table in cmpint.c.
 	//
 define(UTILITY_HOOK, `
-$1:
+LOCAL($1)
 	mov	UIDX, #$2
 	b	SYMBOL(scheme_to_interface)
 	nop
-	nop')
+	nop
+END($1)')
 
 	// APPLY_HOOK(name, label, n)
 	//
@@ -346,11 +348,12 @@ $1:
 	//	callee.
 	//
 define(APPLY_HOOK, `
-$1:
+LOCAL($1)
 	mov	UARG2, #$3
 	b	SYMBOL(apply_setup)
 	nop
-	nop')
+	nop
+END($1)')
 
 	// hooks
 	//