home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / zip / mint / mntlib16.lzh / MNTLIB16 / ALLOCA.S < prev    next >
Text File  |  1993-08-03  |  496b  |  25 lines
  1. #APP
  2. # 
  3. #  alloca(nbytes) allocate junk in stack frame
  4. #
  5. #  void *alloca(size_t size)
  6. # 
  7.  
  8.     .text
  9.      .even
  10.  
  11. .globl    _alloca
  12. _alloca:
  13.     movel    sp@+,a0        | get return addr
  14.     movel    sp@+,d0        | get size -- assist in bug fix, add 4 to sp
  15.  
  16.     addql    #1,d0        | ensure address even
  17.     andl    #0xFFFFFFFE,d0    | lop off extra bits
  18.  
  19.     subl    d0,sp        | increase stack frame size by that much
  20.     movel    sp,d0        | set up to return it
  21.  
  22.     lea    sp@(-4),sp    | new top of stack (real bug fix here)
  23.  
  24.     jmp    a0@        | return by jmping via saved addr
  25.