diff options
Diffstat (limited to 'riscv/trunk/rtl/riscv64/setjumph.inc')
-rw-r--r-- | riscv/trunk/rtl/riscv64/setjumph.inc | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/riscv/trunk/rtl/riscv64/setjumph.inc b/riscv/trunk/rtl/riscv64/setjumph.inc new file mode 100644 index 0000000000..7fc080a2ec --- /dev/null +++ b/riscv/trunk/rtl/riscv64/setjumph.inc @@ -0,0 +1,29 @@ +{ + + 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 + ra, + x8,x9,x18,x19,x20,x21, + x22,x23,x24,x25,s26, + s27,x2: qword; + 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']; + + |