Garbage collection.

This commit is contained in:
mycroft 1994-02-04 05:43:53 +00:00
parent b648f43dfd
commit 430f4d38ac
1 changed files with 14 additions and 95 deletions

View File

@ -25,121 +25,40 @@
* any improvements or extensions that they make and grant Carnegie Mellon
* the rights to redistribute these changes.
*
* $Id: asm.h,v 1.3 1993/08/02 17:52:12 mycroft Exp $
* $Id: asm.h,v 1.4 1994/02/04 05:43:53 mycroft Exp $
*/
#define S_ARG0 4(%esp)
#define S_ARG1 8(%esp)
#define S_ARG2 12(%esp)
#define S_ARG3 16(%esp)
#define FRAME pushl %ebp; movl %esp, %ebp
#define EMARF leave
#define B_ARG0 8(%ebp)
#define B_ARG1 12(%ebp)
#define B_ARG2 16(%ebp)
#define B_ARG3 20(%ebp)
#ifdef wheeze
#define ALIGN 4
#define EXT(x) x
#define LEXT(x) x:
#define LCL(x) ./**/x
#define LB(x,n) ./**/x
#define LBb(x,n) ./**/x
#define LBf(x,n) ./**/x
#define SVC lcall $7,$0
#define String .string
#define Value .value
#define Times(a,b) [a\*b]
#define Divide(a,b) [a\\b]
#define INB inb (%dx)
#define OUTB outb (%dx)
#define INL inl (%dx)
#define OUTL outl (%dx)
#else wheeze
#define ALIGN
#define LCL(x) x
#define LB(x,n) n
#ifdef __STDC__
#define EXT(x) _ ## x
#define LEXT(x) _ ## x ## :
#define LBb(x,n) n ## b
#define LBf(x,n) n ## f
#else __STDC__
#define EXT(x) _/**/x
#define LEXT(x) _/**/x/**/:
#define LBb(x,n) n/**/b
#define LBf(x,n) n/**/f
#endif __STDC__
#define SVC .byte 0x9a; .long 0; .word 0x7
#define String .ascii
#define Value .word
#define Times(a,b) (a*b)
#define Divide(a,b) (a/b)
#define INB inb %dx, %al
#define OUTB outb %al, %dx
#define INL inl %dx, %eax
#define OUTL outl %eax, %dx
#endif wheeze
#define addr32 .byte 0x67
#define data32 .byte 0x66
#ifdef GPROF
#ifdef __STDC__
#ifdef PROF
#define MCOUNT .data; LB(x, 9); .long 0; .text; lea LBb(x, 9),%edx; call mcount
#define ENTRY(x) .globl EXT(x); .align ALIGN; LEXT(x) ; \
pushl %ebp; movl %esp, %ebp; MCOUNT; popl %ebp;
#define MCOUNT .data; 9: .long 0; .text; lea 9b,%edx; call mcount
#define ENTRY(x) .globl EXT(x); .align 2,0x90; LEXT(x); \
FRAME; MCOUNT; EMARF
#define ENTRY2(x,y) .globl EXT(x); .globl EXT(y); \
.align ALIGN; LEXT(x) LEXT(y) ; \
pushl %ebp; movl %esp, %ebp; MCOUNT; popl %ebp;
#define ASENTRY(x) .globl x; .align ALIGN; x ## : ; \
pushl %ebp; movl %esp, %ebp; MCOUNT; popl %ebp;
.align 2,0x90; LEXT(x) LEXT(y); \
FRAME; MCOUNT; EMARF
#define ASENTRY(x) .globl x; .align 2,0x90; x:; \
FRAME; MCOUNT; EMARF
#else __STDC__
#define MCOUNT .data; LB(x, 9): .long 0; .text; lea LBb(x, 9),%edx; call mcount
#define ENTRY(x) .globl EXT(x); .align ALIGN; LEXT(x) ; \
pushl %ebp; movl %esp, %ebp; MCOUNT; popl %ebp;
#define ENTRY2(x,y) .globl EXT(x); .globl EXT(y); \
.align ALIGN; LEXT(x) LEXT(y)
#define ASENTRY(x) .globl x; .align ALIGN; x: ; \
pushl %ebp; movl %esp, %ebp; MCOUNT; popl %ebp;
#endif __STDC__
#else GPROF
#ifdef __STDC__
#else PROF
#define MCOUNT
#define ENTRY(x) .globl EXT(x); .align ALIGN; LEXT(x)
#define ENTRY(x) .globl EXT(x); .align 2,0x90; LEXT(x)
#define ENTRY2(x,y) .globl EXT(x); .globl EXT(y); \
.align ALIGN; LEXT(x) LEXT(y)
#define ASENTRY(x) .globl x; .align ALIGN; x ## :
.align 2,0x90; LEXT(x) LEXT(y)
#define ASENTRY(x) .globl x; .align 2,0x90; x:
#else __STDC__
#define MCOUNT
#define ENTRY(x) .globl EXT(x); .align ALIGN; LEXT(x)
#define ENTRY2(x,y) .globl EXT(x); .globl EXT(y); \
.align ALIGN; LEXT(x) LEXT(y)
#define ASENTRY(x) .globl x; .align ALIGN; x:
#endif __STDC__
#endif GPROF
#define Entry(x) .globl EXT(x); .align ALIGN; LEXT(x)
#define DATA(x) .globl EXT(x); .align ALIGN; LEXT(x)
#endif PROF