From 135c0ecfb781d0435d880732927f8912678f8bf2 Mon Sep 17 00:00:00 2001 From: yury Date: Thu, 16 Nov 2006 17:01:17 +0000 Subject: [PATCH] * fixed passing float constants as part of "array of const" parameter for ARM. git-svn-id: trunk@5403 - --- compiler/arm/cgcpu.pas | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/compiler/arm/cgcpu.pas b/compiler/arm/cgcpu.pas index 311576ee18..189ce53619 100644 --- a/compiler/arm/cgcpu.pas +++ b/compiler/arm/cgcpu.pas @@ -1488,16 +1488,18 @@ unit cgcpu; ref.base:=tmpreg; end else - begin - ref.index:=tmpreg; - ref.shiftimm:=0; - ref.signindex:=1; - ref.shiftmode:=SM_None; - end; + if ref.base<>NR_PC then + begin + ref.index:=tmpreg; + ref.shiftimm:=0; + ref.signindex:=1; + ref.shiftmode:=SM_None; + end + else + ref.base:=tmpreg; end else ref.base:=tmpreg; - ref.offset:=0; ref.symbol:=nil; end;