paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-02-25 03:08:24 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix edsp instructions detection

Browse Source 
git-svn-id: trunk@10458 -
This commit is contained in:
florian 2008-03-07 21:51:14 +00:00
parent 6dc34ae467
commit c544d97de9
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/arm/arm.inc
View File

@ -589,7 +589,7 @@ begin
cpu_has_edsp:=true;
in_edsp_test:=true;
asm
pld [r0]
ldrd r0,[sp]
end;
in_edsp_test:=false;
if cpu_has_edsp then

3
rtl/linux/arm/sighnd.inc
View File

@ -33,6 +33,7 @@ begin
begin
res:=0;
cpu_has_edsp:=false;
inc(uContext^.uc_mcontext.arm_pc,4);
end
else
res:=216;
@ -44,7 +45,7 @@ begin
reenable_signal(sig);
{ give runtime error at the position where the signal was raised }
if res<>0 then
HandleErrorAddrFrame(res,pointer(uContext^.uc_mcontext.arm_ip),pointer(uContext^.uc_mcontext.arm_fp));
HandleErrorAddrFrame(res,pointer(uContext^.uc_mcontext.arm_pc),pointer(uContext^.uc_mcontext.arm_fp));
end;