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@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@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