home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / magazine / pcmagazi / 1989 / 22 / jump.pas < prev    next >
Pascal/Delphi Source File  |  1989-11-10  |  595b  |  34 lines
  1.  
  2. JUMP.PAS
  3.  
  4.  
  5.  
  6.  
  7. { Non - local Goto for Turbo Pascal 4.0 }
  8. UNIT Jump;
  9. INTERFACE
  10. TYPE
  11.   JmpBuf = RECORD
  12.              SP : Word;
  13.              SS : Word;
  14.              CS : Word;
  15.              IP : Word;
  16.              BP : Word;
  17.              DS : Word;
  18.            END;
  19.  
  20.   { Save current context and return a code of 0 }
  21. FUNCTION SetJmp(VAR X : JmpBuf) : Integer;
  22.  
  23.   { Restore context and return the given code }
  24. PROCEDURE LongJmp(VAR X : JmpBuf; RetValue : Integer);
  25.  
  26. IMPLEMENTATION
  27.   FUNCTION SetJmp; EXTERNAL;
  28.   PROCEDURE LongJmp; EXTERNAL;
  29.   {$L SETJMP.OBJ }
  30. END.
  31.  
  32.  
  33.  
  34.