From: Taylor R Campbell <campbell@mumble.net>
Date: Sat, 19 Jan 2019 20:51:56 +0000 (+0000)
Subject: Load UARG2, don't clobber UARG1, in apply hooks.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~66^2~61
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=b76b5a9cbb20d5888108ff0abf0139cc7cb547cb;p=mit-scheme.git

Load UARG2, don't clobber UARG1, in apply hooks.
---

diff --git a/src/microcode/cmpauxmd/aarch64.m4 b/src/microcode/cmpauxmd/aarch64.m4
index 19da66a06..5350af8ae 100644
--- a/src/microcode/cmpauxmd/aarch64.m4
+++ b/src/microcode/cmpauxmd/aarch64.m4
@@ -337,12 +337,14 @@ $1:
 	// APPLY_HOOK(name, label, n)
 	//
 	//	Application setup hook, to be implemented at label.
-	//	Currently not implemented, so just loads n into x1 and
-	//	defers to apply_setup.
+	//	Currently not implemented, so just loads n (frame size,
+	//	i.e. number of arguments + 1) into UARG2 and defers to
+	//	apply_setup.  Caller ensures UARG1 already has the
+	//	callee.
 	//
 define(APPLY_HOOK, `
 $1:
-	mov	x1, #$3
+	mov	UARG2, #$3
 	b	SYMBOL(apply_setup)
 	nop
 	nop')