@@ -0,0 +1,22 @@
+{
+
+ This file is part of the Free Pascal run time library.
+ Copyright (c) 2016 by the Free Pascal development team.
+ CPU specific system unit header file
+ 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.
+ **********************************************************************}
+{$ifndef FPUNONE}
+{$define FPC_SYSTEM_FPUCW_IMMUTABLE}
+{$endif}
+//const
+// {$I cpuinnr.inc}
@@ -0,0 +1,27 @@
+ Copyright (c) 2008 by the Free Pascal development team.
+ SetJmp/Longjmp declarations
+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'];