X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fx86-64-assem.S;h=c4f543593fb90962f45082443d01800888c78c98;hb=973114b3cc157ea00cc9a9352aba0c888172eb7a;hp=e2bc331c25e08c5098370eedfdafc01f11d0b0d4;hpb=3b5fb548ed34612fb853b11b2bcdd29440834eaa;p=sbcl.git

diff --git a/src/runtime/x86-64-assem.S b/src/runtime/x86-64-assem.S
index e2bc331..c4f5435 100644
--- a/src/runtime/x86-64-assem.S
+++ b/src/runtime/x86-64-assem.S
@@ -194,7 +194,7 @@ Lstack:
 	xor	%rdx,%rdx	# clear any descriptor registers 
 	xor	%rdi,%rdi	# that we can't be sure we'll 
 	xor	%rsi,%rsi	# initialise properly.  XX do r8-r15 too?
-	shl	$N_FIXNUM_TAG_BITS,%rcx	# (fixnumize num-args)
+	shl	$(N_FIXNUM_TAG_BITS),%rcx	# (fixnumize num-args)
 	cmp	$0,%rcx
 	je	Ldone
 	mov	0(%rbx),%rdx	# arg0
@@ -344,6 +344,12 @@ GNAME(closure_tramp):
 /*
  * fun-end breakpoint magic
  */
+
+/*
+ * For an explanation of the magic involved in function-end
+ * breakpoints, see the implementation in ppc-assem.S.
+ */
+
 	.text
 	.globl 	GNAME(fun_end_breakpoint_guts)
 	.align	align_16byte