home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 7 / 07.iso / c / c082_122 / 5.ddi / CLIBSRC2.ZIP / STKAVAIL.ASM < prev    next >
Encoding:
Assembly Source File  |  1992-06-10  |  2.5 KB  |  88 lines
  1. ;[]-----------------------------------------------------------------[]
  2. ;|      STKAVAIL.ASM -- calculate free stack space                   |
  3. ;[]-----------------------------------------------------------------[]
  4.  
  5. ;
  6. ;       C/C++ Run Time Library - Version 5.0
  7. ; 
  8. ;       Copyright (c) 1991, 1992 by Borland International
  9. ;       All Rights Reserved.
  10. ; 
  11.  
  12.         INCLUDE RULES.ASI
  13.  
  14. ;       Segments Definitions
  15.  
  16. Header@
  17.  
  18. ;----------------------------------------------------------------------
  19. ; In large data models, the stack is in its own segment.  The stack
  20. ; starts at SS:__stklen and grows down to SS:0.
  21. ;
  22. ; In small data models, the stack is in the DGROUP, and grows down
  23. ; to meet the heap.  The end of the heap is marked by ___brklvl.
  24. ;----------------------------------------------------------------------
  25.  
  26. ifdef _WINDOWS
  27. pStackTop equ   0Ah             ; SS:[0A] contains addr of top of stack
  28. else
  29.   if LDATA eq false
  30. ExtSym@         __brklvl, WORD, __CDECL__
  31.   endif
  32. endif
  33.  
  34. ; REGSTACK contains the number of bytes taken up in the stack
  35. ; by registers saved in the normal function prologue.  This includes
  36. ; space for SI and DI, plus DS in huge model.
  37.  
  38. ifdef __HUGE__
  39. REGSTACK   equ     6
  40. else
  41. REGSTACK   equ     4
  42. endif
  43.  
  44. ;-----------------------------------------------------------------------
  45. ;
  46. ;Name           stackavail - get available stack size
  47. ;
  48. ;Usage          #include <malloc.h>
  49. ;               size_t stackavail(void);
  50. ;
  51. ;Prototype in   malloc.h
  52. ;
  53. ;Description    This function returns the approximate number of bytes
  54. ;               available in the stack for allocation by alloca().
  55. ;
  56. ;Return value   The number of available stack bytes.
  57. ;
  58. ;------------------------------------------------------------------------
  59.  
  60. Code_seg@
  61.  
  62. PubProc@ stackavail, __CDECL__
  63.  
  64.         mov     ax,sp           ; get current stack pointer
  65. ifdef _WINDOWS
  66.         mov     cx,pStackTop    ; get base of stack
  67.         add     cx,REGSTACK     ; leave space for pushing registers
  68. else
  69.     if LDATA eq false
  70.         mov     cx,__brklvl@    ; get base of stack
  71.         add     cx,REGSTACK     ; leave space for pushing registers
  72.     else
  73.         mov     cx,REGSTACK     ; leave space for pushing registers
  74.     endif
  75. endif
  76.         sub     ax,cx           ; AX = (current SP) - (stack base)
  77.         jb      noroom          ; if current SP is below stack base, no room
  78.         ret
  79. noroom:
  80.         xor     ax,ax           ; return zero
  81.         ret
  82.  
  83. EndProc@ stackavail, __CDECL__
  84.  
  85. Code_EndS@
  86.  
  87.         end
  88.