development/compilers/freepascal/rtl/m68k/setjumph.inc

   1 {
   2     $Id$
   3     This file is part of the Free Pascal run time library.
   4     Copyright (c) 1999-2000 by xxxx
   5     member of the Free Pascal development team
   6
   7     See the file COPYING.FPC, included in this distribution,
   8     for details about the copyright.
   9
  10     This program is distributed in the hope that it will be useful,
  11     but WITHOUT ANY WARRANTY; without even the implied warranty of
  12     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  13
  14  **********************************************************************}
  15
  16 {**********************************************************************
  17           Declarations for SetJmp/LongJmp
  18  **********************************************************************}
  19
  20 Type
  21   // CARL, CHANGE THESE TO THE NEEDED VALUES !  (MVC)
  22   jmp_buf = record
  23     ebx,esi,edi : Longint;
  24     bp,sp,pc : Pointer;
  25     end;
  26   PJmp_buf = ^jmp_buf;
  27
  28 Function Setjmp (Var S : Jmp_buf) : longint;
  29 Procedure longjmp (Var S : Jmp_buf; value : longint);