From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 17 Sep 2019 06:16:14 +0000 (-0700)
Subject: Update incorrect comments.
X-Git-Tag: mit-scheme-pucked-10.1.20~11^2~50
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=2cbd3b7c1a5a3e9b4c215422bba083be4147b72c;p=mit-scheme.git

Update incorrect comments.
---

diff --git a/src/microcode/cmpauxmd/x86-64.m4 b/src/microcode/cmpauxmd/x86-64.m4
index 0b2ee76fb..0038a6385 100644
--- a/src/microcode/cmpauxmd/x86-64.m4
+++ b/src/microcode/cmpauxmd/x86-64.m4
@@ -425,7 +425,7 @@ define_c_label(C_to_interface)
 	OP(push,q)	REG(r15)
 	OP(push,q)	IMM(0)				# Align stack
 	OP(mov,q)	TW(REG(rdi),REG(rcx))		# rcx := entry ptr
-	OP(mov,q)	TW(REG(rsi),REG(rdx))		# rcx := entry pc
+	OP(mov,q)	TW(REG(rsi),REG(rdx))		# rdx := entry pc
 							# Preserve frame ptr
 	OP(mov,q)	TW(REG(rbp),ABS(EVR(C_Frame_Pointer)))
 							# Preserve stack ptr
@@ -503,7 +503,7 @@ define_debugging_label(scheme_to_interface_return)
 	jmp		IJMP(REG(rax))		# Invoke handler
 
 define_c_label(interface_to_scheme)
-	# rax = interface_to_scheme
+	# rax = interface_to_scheme [??? -- not referred to]
 	# rcx = compiled entry/return address, needed by compiled code
 	# rdx = compiled PC, or interface_to_scheme_return
 ifdef(`WIN32',						# Register block = %rsi