home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / pmd110 / testpmd.pas < prev    next >
Pascal/Delphi Source File  |  1994-11-13  |  1KB  |  64 lines
  1. { Created: 1993-12-01
  2.  
  3. Program to test the Post Mortem Debugger
  4.  
  5. }
  6.  
  7.  
  8. {$Q+}
  9. program TestPMD;
  10.  
  11. uses BBError,
  12.      Objects, ObjMemory,
  13.      {$IFDEF Windows}
  14.      WinCrt,
  15.      {$ENDIF}
  16.      PMD;
  17.  
  18. type
  19.   types = (test1, test2, test3);
  20.  
  21.  
  22. procedure GenerateError(var f : text; e: types);
  23.  
  24.   procedure InSide(o : TObjMemory);
  25.   var
  26.     w : word;
  27.     d : word;
  28.   begin
  29.     w := 0;
  30.     w := w - 1;
  31.   end;
  32.  
  33. begin
  34.   InSide(GetObjMemory(100, 0, memfAll)^);
  35. end;
  36.  
  37.  
  38. var
  39.   f : text;
  40. begin
  41. { display information about this program }
  42.   writeln('Post Mortem Debugger tester.');
  43.   writeln('If this program is compiled with debug info on,');
  44.   writeln('see TESTPMD.LOG after this program halts.');
  45.  
  46. { initialize log file unit }
  47.   InitBBError('TESTPMD.LOG', TRUE);
  48.  
  49. { initialize memory handling unit }
  50.   InitObjMemory;
  51.  
  52. { initialize PMD with symbolic stack dump and data segment dump }
  53.   InitPMD(dfStandard);
  54.  
  55. { open a text file, nice in symbolic stack dump and dseg dump }
  56.   Assign(f, 'TESTPMD.PAS');
  57.   Reset(f);
  58.  
  59. { generate the error }
  60.   GenerateError(f, test2);
  61.  
  62. { we don't need to clean up of course, because we will never reach this... }
  63. end.
  64.