paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 16:48:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed passing float constants as part of "array of const" parameter for ARM.

Browse Source 
git-svn-id: trunk@5403 -
This commit is contained in:
yury 2006-11-16 17:01:17 +00:00
parent 347af4dbe4
commit 135c0ecfb7
1 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
compiler/arm/cgcpu.pas
View File

@ -1488,16 +1488,18 @@ unit cgcpu;
ref.base:=tmpreg; ref.base:=tmpreg;
end end
else else
begin if ref.base<>NR_PC then
ref.index:=tmpreg; begin
ref.shiftimm:=0; ref.index:=tmpreg;
ref.signindex:=1; ref.shiftimm:=0;
ref.shiftmode:=SM_None; ref.signindex:=1;
end; ref.shiftmode:=SM_None;
end
else
ref.base:=tmpreg;
end end
else else
ref.base:=tmpreg; ref.base:=tmpreg;
ref.offset:=0; ref.offset:=0;
ref.symbol:=nil; ref.symbol:=nil;
end; end;