diff options
Diffstat (limited to 'rtl/z80/setjumph.inc')
-rw-r--r-- | rtl/z80/setjumph.inc | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/rtl/z80/setjumph.inc b/rtl/z80/setjumph.inc new file mode 100644 index 0000000000..609962c72b --- /dev/null +++ b/rtl/z80/setjumph.inc @@ -0,0 +1,27 @@ +{ + + This file is part of the Free Pascal run time library. + Copyright (c) 2008 by the Free Pascal development team. + + SetJmp/Longjmp declarations + + See the file COPYING.FPC, included in this distribution, + for details about the copyright. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. + + **********************************************************************} + +type + jmp_buf = packed record + ix,sp,pc: word; +{ f,a,b,c,e,d,l,h,ixlo,ixhi,iylo,iyhi,splo,sphi,pclo,pchi : byte;} + end; + pjmp_buf = ^jmp_buf; + +function setjmp(var S : jmp_buf) : shortint;[external name 'FPC_SETJMP']; +procedure longjmp(var S : jmp_buf;value : shortint);[external name 'FPC_LONGJMP']; + + |