paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 14:29:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed double parameters passing and storing result for ARM in softfloat mode (by removing old hacks).

Browse Source 
git-svn-id: trunk@5438 -
This commit is contained in:
yury 2006-11-21 21:20:24 +00:00
parent 257a76d6c8
commit 5ceef96cf3
1 changed files with 2 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/arm/cpupara.pas
View File

@ -401,15 +401,6 @@ unit cpupara;
end;
dec(paralen,tcgsize2size[paraloc^.size]);
end;
{ hack to swap doubles in int registers }
if is_double(hp.vardef) and (paracgsize=OS_64) and
(hp.paraloc[side].location^.loc=LOC_REGISTER) then
begin
paraloc:=hp.paraloc[side].location;
hp.paraloc[side].location:=hp.paraloc[side].location^.next;
hp.paraloc[side].location^.next:=paraloc;
paraloc^.next:=nil;
end;
end;
curintreg:=nextintreg;
curfloatreg:=nextfloatreg;
@ -456,8 +447,8 @@ unit cpupara;
begin
{ low }
p.funcretloc[side].loc:=LOC_REGISTER;
p.funcretloc[side].register64.reglo:=NR_FUNCTION_RESULT64_HIGH_REG;
p.funcretloc[side].register64.reghi:=NR_FUNCTION_RESULT64_LOW_REG;
p.funcretloc[side].register64.reglo:=NR_FUNCTION_RESULT64_LOW_REG;
p.funcretloc[side].register64.reghi:=NR_FUNCTION_RESULT64_HIGH_REG;
p.funcretloc[side].size:=OS_64;
end;
OS_32,