paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:09:27 +02: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:
getparaloc:=LOC_REGISTER;
recorddef:
getparaloc:=LOC_REFERENCE;
getparaloc:=LOC_REGISTER;
objectdef:
if is_object(p) then
getparaloc:=LOC_REFERENCE
else
getparaloc:=LOC_REGISTER;
getparaloc:=LOC_REGISTER;
stringdef:
if is_shortstring(p) or is_longstring(p) then
getparaloc:=LOC_REFERENCE
@ -143,7 +140,7 @@ unit cpupara;
else
getparaloc:=LOC_REFERENCE;
variantdef:
getparaloc:=LOC_REFERENCE;
getparaloc:=LOC_REGISTER;
{ avoid problems with errornous definitions }
errordef:
getparaloc:=LOC_REGISTER;
@ -162,17 +159,16 @@ unit cpupara;
exit;
end;
case def.deftype of
objectdef,
variantdef,
formaldef,
recorddef:
result:=true;
result:=varspez=vs_const;
arraydef:
result:=(tarraydef(def).highrange>=tarraydef(def).lowrange) or
is_open_array(def) or
is_array_of_const(def) or
is_array_constructor(def);
objectdef :
result:=is_object(def);
setdef :
result:=(tsetdef(def).settype<>smallset);
stringdef :
@ -278,11 +274,11 @@ unit cpupara;
while paralen>0 do
begin
paraloc:=hp.paraloc[side].add_location;
{ for things like formaldef }
if paracgsize=OS_NO then
paraloc^.size:=OS_ADDR
else if paracgsize in [OS_64,OS_S64] then
paraloc^.size:=OS_32
if (paradef.deftype <> orddef) then
paracgsize := int_cgsize(paralen);
if (paracgsize in [OS_NO,OS_64,OS_S64]) then
paraloc^.size := OS_32
else if (loc=LOC_REGISTER) and (paracgsize in [OS_F32,OS_F64,OS_F80]) then
case paracgsize of
OS_F32: