|
|
1.1 root 1: /* alloca.s 4.1 83/06/27 */
2: /* like alloc, but automatic automatic free in return */
3:
4: #include "DEFS.h"
5:
6: ENTRY(alloca)
7: moval (sp),r0 # current sp
8: subl2 4(fp),r0 # allocation size
9: andl2 $0xfffffffc,r0 # allignment
10: movl -8(fp),r1 # old pc
11: movl (fp),fp # old fp
12: addl2 $4*4,r0 # reuse space of mscp
13: movl r0,sp # new sp
14: jmp (r1) # funny return
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.