home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / MAGAZINE / MISC / PCTV1N3.ZIP / SMTEST.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-02-22  |  464 b   |  23 lines
  1. program StackMonTest;
  2.   {-Simple program to test STACKMON}
  3. uses
  4.   {StackMon should be the first unit used}
  5.   StackMon, Crt;
  6. var
  7.   P : Pointer;
  8.  
  9.   procedure StackEater;
  10.     {-Use some stack space}
  11.   var
  12.     BigArray : array[1..12331] of Byte; {this is on the stack}
  13.   begin
  14.     {delay a while to insure that StackMon sees what we've used}
  15.     Delay(100);
  16.   end;
  17.  
  18. begin
  19.   {use some stack and heap space}
  20.   GetMem(P, 56789);
  21.   StackEater;
  22. end.
  23.