home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2src / seedump.mod < prev    next >
Text File  |  1996-01-25  |  1KB  |  42 lines
  1. IMPLEMENTATION MODULE SEEDUMP;
  2.  
  3. (*************************************************************************
  4.    SEEDUMP.MOD    "SeeDump" postmortem setup module.
  5.  
  6.  
  7.    Copyright (c) 1996 by Juergen Neuhoff
  8. *************************************************************************)
  9.  
  10. IMPORT DUMPER;
  11.  
  12. (*$XL+          M2-language extensions *)
  13. (*$CDECL+       C-style procedures     *)
  14.  
  15. VAR
  16.   ExceptReg : DUMPER.SEEDUMPREGREC;
  17.  
  18.  
  19. PROCEDURE SetXCPTHandler();
  20. BEGIN
  21.   ExceptReg.prev_structure   := NIL;
  22.   ExceptReg.ExceptionHandler := NIL;
  23.   ExceptReg.flag             := DUMPER.DUMPER_DEFAULT;
  24.   ExceptReg.DoTheDumpEnv     := NIL;
  25.   ExceptReg.EndThreadHandler := 0;
  26.   DUMPER._SETXCPTHANDLER( DUMPER.DUMPER_VERSION, ExceptReg );
  27. END SetXCPTHandler;
  28.  
  29.  
  30. PROCEDURE SetEndThreadXCPTHandler( et : LONGCARD );
  31. BEGIN
  32.   ExceptReg.prev_structure   := NIL;
  33.   ExceptReg.ExceptionHandler := NIL;
  34.   ExceptReg.flag             := DUMPER.DUMPER_DEFAULT;
  35.   ExceptReg.DoTheDumpEnv     := NIL;
  36.   ExceptReg.EndThreadHandler := et;
  37.   DUMPER._SETXCPTHANDLER( DUMPER.DUMPER_VERSION, ExceptReg );
  38. END SetEndThreadXCPTHandler;
  39.  
  40.  
  41. END SEEDUMP.
  42.