paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-06 05:10:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Don't try to read sininfo record

Browse Source 
git-svn-id: trunk@20712 -
This commit is contained in:
pierre 2012-04-05 20:56:15 +00:00
parent c12f09316e
commit 96f1627c46
1 changed files with 19 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
rtl/openbsd/i386/sighnd.inc
View File

@ -15,11 +15,24 @@
CONST FPU_ALL=$7F;
{$ifdef cpui386}
function getfpustate(sininfo:psiginfo):longint; {inline;}
begin
getfpustate:=sininfo^.si_code;
if ptruint(sininfo)> high(word) then
getfpustate:=sininfo^.si_code
else
getfpustate:=word(ptruint(sininfo));
end;
function getaltfpustate(sigcontext:psigcontextrec):longint; {inline;}
begin
if assigned(sigcontext) then
getaltfpustate:=sigcontext^.sc_fpustate^.en_sw
else
getaltfpustate:=0;
end;
{$endif}
procedure SignalToRunerror(Sig: longint;sininfo:psiginfo; SigContext: PSigContextRec); public name '_FPC_DEFAULTSIGHANDLER'; cdecl;
var
@ -40,8 +53,11 @@ begin
{ this is not allways necessary but I don't know yet
how to tell if it is or not PM }
res:=200;
fpustate:=GetFPUState(sininfo);
{$ifdef cpui386}
fpustate:=GetaltFPUState(sigcontext);
{$else}
fpustate:=0;
{$endif}
if (FpuState and FPU_All) <> 0 then
begin
{ first check the more precise options }