Commit | Line | Data |
---|---|---|
9c8fc5ca BJ |
1 | # like alloc, but automatic |
2 | # automatic free in return | |
3 | ||
4 | .globl _alloca | |
5 | _alloca: | |
6 | .word 0x0000 | |
7 | subl2 4(ap),sp # crude allocation | |
8 | movl 16(fp),r1 # pc | |
9 | movq 8(fp),ap # new (old) ap and fp | |
10 | bicl2 $3,sp # 4-byte align | |
11 | addl2 $7*4,sp # reuse space of mscp | |
12 | movl sp,r0 # return value | |
13 | jmp (r1) # funny return |