|
|
@@ -0,0 +1,58 @@
|
|
|
+{
|
|
|
+ $Id$
|
|
|
+ This file is part of the Free Pascal run time library.
|
|
|
+ (c) 2000-2003 by Marco van de Voort
|
|
|
+ member of the Free Pascal development team.
|
|
|
+
|
|
|
+ See the file COPYING.FPC, included in this distribution,
|
|
|
+ for details about the copyright.
|
|
|
+
|
|
|
+ Signalhandler for FreeBSD/i386
|
|
|
+
|
|
|
+ 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.
|
|
|
+}
|
|
|
+
|
|
|
+CONST FPU_ALL=$7F;
|
|
|
+
|
|
|
+function getfpustate(const Sigcontext:sigcontextRec):longint; {inline;}
|
|
|
+begin
|
|
|
+ getfpustate:=0;
|
|
|
+end;
|
|
|
+
|
|
|
+procedure SignalToRunerror(signo: cint); cdecl;
|
|
|
+var
|
|
|
+ res : word;
|
|
|
+begin
|
|
|
+ res:=0;
|
|
|
+ if signo = SIGFPE then
|
|
|
+ begin
|
|
|
+ res := 200;
|
|
|
+ end
|
|
|
+ else
|
|
|
+ if (signo = SIGILL) or (signo = SIGBUS) or (signo = SIGSEGV) then
|
|
|
+ begin
|
|
|
+ res := 216;
|
|
|
+ end;
|
|
|
+ { give runtime error at the position where the signal was raised }
|
|
|
+ if res<>0 then
|
|
|
+ begin
|
|
|
+ HandleError(res);
|
|
|
+ end;
|
|
|
+end;
|
|
|
+
|
|
|
+
|
|
|
+
|
|
|
+{
|
|
|
+ $Log$
|
|
|
+ Revision 1.1 2004-01-04 16:41:35 marco
|
|
|
+ * powerpc version
|
|
|
+
|
|
|
+ Revision 1.1 2004/01/04 15:30:19 marco
|
|
|
+ * working version
|
|
|
+
|
|
|
+ Revision 1.1 2004/01/03 12:29:36 marco
|
|
|
+ * now separately.
|
|
|
+
|
|
|
+}
|
marco