[cmucl-commit] [git] CMU Common Lisp branch master updated. begin-x87-removal-16-g656761b

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  656761bda082e6c08492f34af80861ac285d6426 (commit)
       via  68ffe6a91d28fa444cd0fc03bcfda295f491b793 (commit)
      from  10781b15fcff354eedf177d9608eb7d98eda297d (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 656761bda082e6c08492f34af80861ac285d6426
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Apr 15 21:52:36 2014 -0700

    Remove alloc_overflow_x87.

diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S
index f3b4344..3ab41d6 100644
--- a/src/lisp/x86-assem.S
+++ b/src/lisp/x86-assem.S
@@ -372,7 +372,7 @@ ENDFUNC(fastcopy16)
 
 
 /*
- * alloc_overflow_x87 and alloc_overflow_sse2 must not be called from
+ * alloc_overflow_sse2 must not be called from
  * C because it doesn't follow C conventions.
  *
  * On entry:
@@ -380,18 +380,6 @@ ENDFUNC(fastcopy16)
  * On exit:
  * %eax = address
  */
-FUNCDEF(alloc_overflow_x87)
-	STACK_PROLOGUE(12)
-	movl	%ecx, 8(%esp)	# Save ecx and edx registers
-	movl	%edx, 4(%esp)
-	movl	%eax, (%esp)	# Put size on stack for first arg to alloc()
-	call	GNAME(alloc)
-	movl	4(%esp), %edx	# Restore edx and ecx registers.  eax has the return value.
-	movl	8(%esp), %ecx
-	STACK_EPILOGUE
-	ret
-ENDFUNC(alloc_overflow_x87)	
-
 FUNCDEF(alloc_overflow_sse2)
 	STACK_PROLOGUE(20)
 	movl	%ecx, 8(%esp)	# Save ecx and edx registers

commit 68ffe6a91d28fa444cd0fc03bcfda295f491b793
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Tue Apr 15 21:46:40 2014 -0700

    Add comment that 16-byte alignment is required on Darwin.

diff --git a/src/compiler/x86/sse2-c-call.lisp b/src/compiler/x86/sse2-c-call.lisp
index 1e827d3..03a2967 100644
--- a/src/compiler/x86/sse2-c-call.lisp
+++ b/src/compiler/x86/sse2-c-call.lisp
@@ -74,7 +74,8 @@
     (unless (zerop amount)
       (let ((delta (logandc2 (+ amount 3) 3)))
 	(inst sub esp-tn delta)))
-    ;; Align the stack to a 16-byte boundary.
+    ;; Align the stack to a 16-byte boundary.  This is required an
+    ;; Darwin and should be harmless everywhere else.
     (inst and esp-tn #xfffffff0)
     (move result esp-tn)))
 

-----------------------------------------------------------------------

Summary of changes:
 src/compiler/x86/sse2-c-call.lisp |    3 ++-
 src/lisp/x86-assem.S              |   14 +-------------
 2 files changed, 3 insertions(+), 14 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp