[cmucl-cvs] [git] CMU Common Lisp branch master updated. snapshot-2012-01-1-gf364ebb

Raymond Toy rtoy at common-lisp.net
Sun Jan 8 20:38:00 UTC 2012


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  f364ebbe14fa351117a843905b06ae1f7fbff3ae (commit)
      from  83969ea4c63b18b97bee81a859467a0f00697955 (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 f364ebbe14fa351117a843905b06ae1f7fbff3ae
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Sun Jan 8 12:37:43 2012 -0800

    Fix #51 by removing the unused alloc_8/16_foo routines.

diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S
index 1c166b0..19be973 100644
--- a/src/lisp/x86-assem.S
+++ b/src/lisp/x86-assem.S
@@ -480,28 +480,6 @@ FUNCDEF(alloc_to_eax)
 	ret
 ENDFUNC(alloc_to_eax)
 
-FUNCDEF(alloc_8_to_eax)
-	pushl	%ecx	# Save ecx and edx as C could destroy them.
-	pushl	%edx
-	pushl	$8	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	popl	%edx	# Restore ecx and edx.
-	popl	%ecx
-	ret
-ENDFUNC(alloc_8_to_eax)
-	
-FUNCDEF(alloc_16_to_eax)
-	pushl	%ecx	# Save ecx and edx as C could destroy them.
-	pushl	%edx
-	pushl	$16	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	popl	%edx	# Restore ecx and edx.
-	popl	%ecx
-	ret
-ENDFUNC(alloc_16_to_eax)
-
 FUNCDEF(alloc_to_ecx)
 	STACK_PROLOGUE(12)
 	movl	%eax, 8(%esp)	# Save eax and edx as C could destroy them.
@@ -515,30 +493,6 @@ FUNCDEF(alloc_to_ecx)
 	ret
 ENDFUNC(alloc_to_ecx)
 
-FUNCDEF(alloc_8_to_ecx)
-	pushl	%eax	# Save eax and edx as C could destroy them.
-	pushl	%edx
-	pushl	$8	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%ecx	# setup the destination.
-	popl	%edx	# Restore eax and edx.
-	popl	%eax
-	ret
-ENDFUNC(alloc_8_to_ecx)
-
-FUNCDEF(alloc_16_to_ecx)
-	pushl	%eax	# Save eax and edx as C could destroy them.
-	pushl	%edx
-	pushl	$16	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%ecx	# setup the destination.
-	popl	%edx	# Restore eax and edx.
-	popl	%eax
-	ret
-ENDFUNC(alloc_16_to_ecx)
-
 FUNCDEF(alloc_to_edx)
 	STACK_PROLOGUE(12)
 	movl	%eax, 8(%esp)	# Save eax and ecx as C could destroy them.
@@ -552,30 +506,6 @@ FUNCDEF(alloc_to_edx)
 	ret
 ENDFUNC(alloc_to_edx)
 
-FUNCDEF(alloc_8_to_edx)
-	pushl	%eax	# Save eax and ecx as C could destroy them.
-	pushl	%ecx
-	pushl	$8	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%edx	# setup the destination.
-	popl	%ecx	# Restore eax and ecx.
-	popl	%eax
-	ret
-ENDFUNC(alloc_8_to_edx)
-
-FUNCDEF(alloc_16_to_edx)
-	pushl	%eax	# Save eax and ecx as C could destroy them.
-	pushl	%ecx
-	pushl	$16	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%edx	# setup the destination.
-	popl	%ecx	# Restore eax and ecx.
-	popl	%eax
-	ret
-ENDFUNC(alloc_16_to_edx)
-
 FUNCDEF(alloc_to_ebx)
 	STACK_PROLOGUE(16)
 	movl	%eax, 12(%esp)	# Save eax, ecx, and edx as C could destroy them.
@@ -591,34 +521,6 @@ FUNCDEF(alloc_to_ebx)
 	ret
 ENDFUNC(alloc_to_ebx)
 
-FUNCDEF(alloc_8_to_ebx)
-	pushl	%eax	# Save eax, ecx, and edx as C could destroy them.
-	pushl	%ecx
-	pushl	%edx
-	pushl	$8	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%ebx	# setup the destination.
-	popl	%edx	# Restore eax, ecx and edx.
-	popl	%ecx
-	popl	%eax
-	ret
-ENDFUNC(alloc_8_to_ebx)
-
-FUNCDEF(alloc_16_to_ebx)
-	pushl	%eax	# Save eax, ecx, and edx as C could destroy them.
-	pushl	%ecx
-	pushl	%edx
-	pushl	$16	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%ebx	# setup the destination.
-	popl	%edx	# Restore eax, ecx and edx.
-	popl	%ecx
-	popl	%eax
-	ret
-ENDFUNC(alloc_16_to_ebx)
-
 FUNCDEF(alloc_to_esi)
 	STACK_PROLOGUE(16)
 	movl	%eax, 12(%esp)	# Save eax, ecx, and edx as C could destroy them.
@@ -634,34 +536,6 @@ FUNCDEF(alloc_to_esi)
 	ret
 ENDFUNC(alloc_to_esi)
 
-FUNCDEF(alloc_8_to_esi)
-	pushl	%eax	# Save eax, ecx, and edx as C could destroy them.
-	pushl	%ecx
-	pushl	%edx
-	pushl	$8	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%esi	# setup the destination.
-	popl	%edx	# Restore eax, ecx and edx.
-	popl	%ecx
-	popl	%eax
-	ret
-ENDFUNC(alloc_8_to_esi)
-
-FUNCDEF(alloc_16_to_esi)
-	pushl	%eax	# Save eax, ecx, and edx as C could destroy them.
-	pushl	%ecx
-	pushl	%edx
-	pushl	$16	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%esi	# setup the destination.
-	popl	%edx	# Restore eax, ecx and edx.
-	popl	%ecx
-	popl	%eax
-	ret
-ENDFUNC(alloc_16_to_esi)
-
 FUNCDEF(alloc_to_edi)
 	STACK_PROLOGUE(16)
 	movl	%eax, 12(%esp)	# Save eax, ecx, and edx as C could destroy them.
@@ -677,34 +551,6 @@ FUNCDEF(alloc_to_edi)
 	ret
 ENDFUNC(alloc_to_edi)
 
-FUNCDEF(alloc_8_to_edi)
-	pushl	%eax	# Save eax, ecx, and edx as C could destroy them.
-	pushl	%ecx
-	pushl	%edx
-	pushl	$8	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%edi	# setup the destination.
-	popl	%edx	# Restore eax, ecx and edx.
-	popl	%ecx
-	popl	%eax
-	ret
-ENDFUNC(alloc_8_to_edi)
-
-FUNCDEF(alloc_16_to_edi)
-	pushl	%eax	# Save eax, ecx, and edx as C could destroy them.
-	pushl	%ecx
-	pushl	%edx
-	pushl	$16	# Push the size
-	call	GNAME(alloc)
-	addl	$4,%esp	# pop the size arg.
-	movl	%eax,%edi	# setup the destination.
-	popl	%edx	# Restore eax, ecx and edx.
-	popl	%ecx
-	popl	%eax
-	ret
-ENDFUNC(alloc_16_to_edi)
-
 #ifdef GENCGC
 
 /* Called from lisp when an inline allocation overflows.

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

Summary of changes:
 src/lisp/x86-assem.S |  154 --------------------------------------------------
 1 files changed, 0 insertions(+), 154 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp




More information about the cmucl-cvs mailing list