|
|
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.