paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 12:29:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

Use mmx_support to decide to use xmState or x87state part of sigcontext

Browse Source 
git-svn-id: trunk@20784 -
This commit is contained in:
pierre 2012-04-11 13:22:58 +00:00
parent d3e32d4fa7
commit 8d6c5f1ecc
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,12 @@ end;
function getaltfpustate(sigcontext:psigcontextrec):longint; {inline;}
begin
if assigned(sigcontext) then
getaltfpustate:=sigcontext^.sc_fpustate^.en_sw
begin
if mmx_support then
getaltfpustate:=sigcontext^.sc_fpustate^.xmmState.fx_fsw
else
getaltfpustate:=sigcontext^.sc_fpustate^.x87state.en_sw
end
else
getaltfpustate:=0;
end;
@ -37,6 +42,7 @@ procedure SignalToRunerror(Sig: longint;sininfo:psiginfo; SigContext: PSigContex
var
res,fpustate : word;
oldact: SigActionRec;
begin
res:=0;
{$ifdef BSD}
@ -87,6 +93,10 @@ begin
SIGQUIT:
res:=233;
end;
{$ifdef DEBUG_SIGNAL_HANDLER}
InstallDefaultSignalHandler(sig,oldact);
InstallDefaultSignalHandler(sig,oldact);
{$endif}
reenable_signal(sig);
{ give runtime error at the position where the signal was raised }
if res<>0 then