paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-07 15:09:56 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fix structure parameter passing

Browse Source 
git-svn-id: trunk@5083 -
This commit is contained in:
florian 2006-10-30 08:04:45 +00:00
parent c5535366c7
commit 797c8de846
1 changed files with 10 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/arm/cpupara.pas
View File

@ -120,12 +120,9 @@ unit cpupara;
classrefdef: classrefdef:
getparaloc:=LOC_REGISTER; getparaloc:=LOC_REGISTER;
recorddef: recorddef:
getparaloc:=LOC_REFERENCE; getparaloc:=LOC_REGISTER;
objectdef: objectdef:
if is_object(p) then getparaloc:=LOC_REGISTER;
getparaloc:=LOC_REFERENCE
else
getparaloc:=LOC_REGISTER;
stringdef: stringdef:
if is_shortstring(p) or is_longstring(p) then if is_shortstring(p) or is_longstring(p) then
getparaloc:=LOC_REFERENCE getparaloc:=LOC_REFERENCE
@ -143,7 +140,7 @@ unit cpupara;
else else
getparaloc:=LOC_REFERENCE; getparaloc:=LOC_REFERENCE;
variantdef: variantdef:
getparaloc:=LOC_REFERENCE; getparaloc:=LOC_REGISTER;
{ avoid problems with errornous definitions } { avoid problems with errornous definitions }
errordef: errordef:
getparaloc:=LOC_REGISTER; getparaloc:=LOC_REGISTER;
@ -162,17 +159,16 @@ unit cpupara;
exit; exit;
end; end;
case def.deftype of case def.deftype of
objectdef,
variantdef, variantdef,
formaldef, formaldef,
recorddef: recorddef:
result:=true; result:=varspez=vs_const;
arraydef: arraydef:
result:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or result:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or
is_open_array(def) or is_open_array(def) or
is_array_of_const(def) or is_array_of_const(def) or
is_array_constructor(def); is_array_constructor(def);
objectdef :
result:=is_object(def);
setdef : setdef :
result:=(tsetdef(def).settype<>smallset); result:=(tsetdef(def).settype<>smallset);
stringdef : stringdef :
@ -278,11 +274,11 @@ unit cpupara;
while paralen>0 do while paralen>0 do
begin begin
paraloc:=hp.paraloc[side].add_location; paraloc:=hp.paraloc[side].add_location;
{ for things like formaldef }
if paracgsize=OS_NO then if (paradef.deftype <> orddef) then
paraloc^.size:=OS_ADDR paracgsize := int_cgsize(paralen);
else if paracgsize in [OS_64,OS_S64] then if (paracgsize in [OS_NO,OS_64,OS_S64]) then
paraloc^.size:=OS_32 paraloc^.size := OS_32
else if (loc=LOC_REGISTER) and (paracgsize in [OS_F32,OS_F64,OS_F80]) then else if (loc=LOC_REGISTER) and (paracgsize in [OS_F32,OS_F64,OS_F80]) then
case paracgsize of case paracgsize of
OS_F32: OS_F32: