diff options
Diffstat (limited to 'riscv/trunk/rtl/riscv32/setjumph.inc')
| -rw-r--r-- | riscv/trunk/rtl/riscv32/setjumph.inc | 25 |
1 files changed, 25 insertions, 0 deletions
diff --git a/riscv/trunk/rtl/riscv32/setjumph.inc b/riscv/trunk/rtl/riscv32/setjumph.inc new file mode 100644 index 0000000000..f27b3c9cbc --- /dev/null +++ b/riscv/trunk/rtl/riscv32/setjumph.inc @@ -0,0 +1,25 @@ +{ + + 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 + end; + pjmp_buf = ^jmp_buf; + +function setjmp(var S : jmp_buf) : longint;[external name 'FPC_SETJMP']; +procedure longjmp(var S : jmp_buf;value : longint);[external name 'FPC_LONGJMP']; + + |