home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 91 / af091a.adf / af91a3.lzx / prgs / Library / stksize.b < prev   
Text File  |  2018-09-21  |  401b  |  20 lines
  1. {* 
  2. ** Show the stack size of the current process. 
  3. **
  4. ** Author: David J Benn
  5. **   Date: 7th October 1995
  6. *}
  7.  
  8. #include <dos/dosextens.h>
  9.  
  10. LIBRARY "exec.library"
  11. DECLARE FUNCTION ADDRESS FindTask(ADDRESS taskName) LIBRARY exec
  12.  
  13. DECLARE STRUCT Process *myProcess
  14.  
  15. myProcess = FindTask(NULL)
  16.  
  17. IF myProcess <> NULL THEN
  18.   MsgBox "Stack size is:"+STR$(myProcess->pr_StackSize)+" bytes.","Continue"
  19. END IF
  20.