{ $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. }