home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Source Code / Pascal / Libraries / DBL Pascal Library / CallChain ƒ / CallChain_Test.p next >
Encoding:
Text File  |  1992-10-31  |  825 b   |  35 lines  |  [TEXT/PJMM]
  1. program CallChain_Test;
  2.  
  3.     uses
  4.         CallChain;
  5.  
  6.     var
  7.         frame: Ptr;
  8.         aName: Str255;
  9.         anOffset: Integer;
  10.         found: Boolean;
  11.  
  12.     procedure Proc1;
  13.         var
  14.             trace: CharsHandle;
  15.             traceSize: Size;
  16.             complete: Boolean;
  17.     begin
  18.         found := GetCallerInfo(0, frame, aName, anOffset);
  19.         writeln(found, ' "', aName, '" ', Ptr(anOffset));
  20.         found := GetCallerInfo(1, frame, aName, anOffset);
  21.         writeln(found, ' "', aName, '" ', Ptr(anOffset));
  22.         found := GetCallerInfo(2, frame, aName, anOffset);
  23.         writeln(found, ' "', aName, '" ', Ptr(anOffset));
  24.         traceSize := 1000;
  25.         trace := CharsHandle(NewHandleClear(traceSize));
  26.         complete := GetStackTrace(0, trace, traceSize);
  27.         DisposeHandle(Handle(trace));
  28.     end;
  29.  
  30. begin
  31.     ShowText;
  32.     found := GetCallerInfo(0, frame, aName, anOffset);
  33.     writeln(found, ' "', aName, '" ', Ptr(anOffset));
  34.     Proc1;
  35. end.