diff --git a/src/lisp/x86-assem.S b/src/lisp/x86-assem.S index 1c166b0d964ee6bf886382c03d0953ef2757a6d9..19be97362cf90ddb51b9d02fac77e10d517bf573 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.