home *** CD-ROM | disk | FTP | other *** search
/ Atari FTP / ATARI_FTP_0693.zip / ATARI_FTP_0693 / Mint / mntlib32.zoo / alloca.cpp < prev    next >
C/C++ Source or Header  |  1993-01-21  |  684b  |  33 lines
  1. | 
  2. |  alloca(nbytes) allocate junk in stack frame
  3. |
  4. |  void *alloca(size_t size)
  5. | 
  6.  
  7.     .text
  8.      .even
  9.  
  10. .globl    _alloca
  11. _alloca:
  12.     movel    sp@+,a0        | get return addr
  13. #ifndef __SOZOBON__
  14.     movel    sp@+,d0        | get size -- assist in bug fix, add 4 to sp
  15. #else
  16.     clrl    d0        | this size_t thing is getting to be
  17.     movew    sp@+,d0        |  an annoyance...  -- sb
  18. #endif
  19.  
  20.     addql    #1,d0        | ensure address even
  21.     bclr    #0,d0        | lop off odd bit
  22.  
  23.     subl    d0,sp        | increase stack frame size by that much
  24.     movel    sp,d0        | set up to return it
  25.  
  26. #ifndef __SOZOBON__
  27.     lea    sp@(-4),sp    | new top of stack (real bug fix here)
  28. #else
  29.     lea    sp@(-2),sp    | hope this is correct...  -- sb
  30. #endif
  31.  
  32.     jmp    a0@        | return by jmping via saved addr
  33.