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

* first shared library link path fixes

Browse Source 
* PowerPC64/Linux signal handler now differs between different FP exceptions

git-svn-id: trunk@1452 -
This commit is contained in:
tom_at_work 2005-10-17 21:30:21 +00:00
parent 4176b71277
commit 4db863d076
2 changed files with 13 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/systems/t_linux.pas
View File

@ -193,7 +193,11 @@ begin
{$ifdef x86_64}
LibrarySearchPath.AddPath('/lib64;/usr/lib64;/usr/X11R6/lib64',true);
{$else}
{$ifdef powerpc64}
LibrarySearchPath.AddPath('/lib64;/usr/lib64;/usr/X11R6/lib64',true);
{$else powerpc64}
LibrarySearchPath.AddPath('/lib;/usr/lib;/usr/X11R6/lib',true);
{$endif powerpc64}
{$endif x86_64}
end;
@ -276,7 +280,7 @@ begin
{$endif powerpc}
{$ifdef powerpc64}
DynamicLinker:='/lib64/ld.so.1';
DynamicLinker:='/lib64/ld64.so.1';
libctype:=glibc2;
{$endif powerpc64}

22
rtl/linux/powerpc64/sighnd.inc
View File

@ -19,7 +19,7 @@
procedure SignalToRunerror(sig : longint; SigInfo: PSigInfo; SigContext: PSigContext);cdecl;
var
res : word;
fpustate : qword;
fpustate : dword;
{$IFDEF EXCDEBUG}
p : pbyte;
i, j : integer;
@ -54,19 +54,18 @@ begin
SIGFPE :
begin
{ ugly typecast to get the FPSCR register contents }
fpustate := QWord(PQWord(@SigContext^.fp_regs[PT_FPSCR])^);
fpustate := DWord(PDWord(@SigContext^.fp_regs[PT_FPSCR])^);
{$IFDEF EXCDEBUG}
writeln('fpustate = ', hexstr(fpustate, sizeof(fpustate)*2));
{$ENDIF}
{ TODO: distinguishing FPU signal type does not work as it should
{ distinguish between the different FPU exceptions }
if (fpustate and ppc_fpu_underflow) <> 0 then
res := 206
else if (fpustate and ppc_fpu_overflow) <> 0 then
res := 205
else if (fpustate and ppc_fpu_divbyzero) <> 0 then
res := 200
else }
else
res := 207;
end;
SIGBUS :
@ -84,16 +83,11 @@ begin
writeln('sigcontext^...regs = ', hexstr(ptrint(sigcontext^.regs), 16));
{$ENDIF}
// reenable signals
{ reenable signal }
reenable_signal(sig);
// give runtime error at the position where the signal was raised, using the
// system trampoline
if res<>0 then begin
SigContext^.gp_regs[PT_R3] := res;
SigContext^.gp_regs[PT_R4] := SigContext^.gp_regs[PT_NIP];
SigContext^.gp_regs[PT_R5] := SigContext^.gp_regs[PT_R1];
SigContext^.handler := ptruint(@HandleErrorAddrFrame);
end;
{ handle error }
if res<>0 then
HandleErrorAddrFrame(res, Pointer(SigContext^.gp_regs[PT_NIP]), Pointer(SigContext^.gp_regs[PT_R1]));
end;