home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / mint / mntlib18 / alloca.s < prev    next >
Encoding:
Text File  |  1993-08-03  |  485 b   |  23 lines
  1. ;  alloca(nbytes) allocate junk in stack frame
  2. ;
  3. ;  void *alloca(size_t size)
  4. ; 
  5.  
  6.     .text
  7.      .even
  8.  
  9. .globl    _alloca
  10. _alloca:
  11.     move.l    (sp)+,a0    ; get return addr
  12.     move.w    (sp)+,d0    ; get size -- assist in bug fix, add 2 to sp
  13.  
  14.     addq.w    #1,d0        ; ensure address even
  15.     bclr    #0,d0
  16.  
  17.     sub.w    d0,sp        ; increase stack frame size by that much
  18.     move.l    sp,d0        ; set up to return it
  19.  
  20.     subq.l    #2,sp        ; new top of stack (real bug fix here)
  21.  
  22.     jmp    (a0)        ; return by jmping via saved addr
  23.