paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 21:09:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* properly set regvarability of parameters and local variables of inlined

Browse Source 
functions
  * fixed setting of expectloc for fields of regvar'ed records

git-svn-id: trunk@3607 -
This commit is contained in:
Jonas Maebe 2006-05-20 23:37:55 +00:00
parent adec4cdcfa
commit 84d1fc929f
3 changed files with 43 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
compiler/ncal.pas
View File

@ -2068,7 +2068,7 @@ type
end
else
begin
tempnode := ctempcreatenode.create(tabstractvarsym(p).vartype,tabstractvarsym(p).vartype.def.size,tt_persistent,not(tabstractvarsym(p).varregable in [vr_none,vr_addr]));
tempnode := ctempcreatenode.create(tabstractvarsym(p).vartype,tabstractvarsym(p).vartype.def.size,tt_persistent,tabstractvarsym(p).is_regvar(false));
addstatement(tempinfo^.createstatement,tempnode);
if assigned(tlocalvarsym(p).defaultconstsym) then
begin
@ -2151,6 +2151,7 @@ type
{ substitute the dereferenced temp in the inlined function }
{ We can't do this if we can't take the address of the }
{ parameter expression, so in that case assign to a temp }
(para.left.expectloc in [LOC_CSUBSETREG,LOC_SUBSETREG]) or
((paracomplexity > 1) and
(not valid_for_addr(para.left,false) or
(para.left.nodetype = calln) or
@ -2205,7 +2206,7 @@ type
)
) then
begin
tempnode := ctempcreatenode.create(para.parasym.vartype,para.parasym.vartype.def.size,tt_persistent,not(tparavarsym(para.parasym).varregable in [vr_none,vr_addr]));
tempnode := ctempcreatenode.create(para.parasym.vartype,para.parasym.vartype.def.size,tt_persistent,tparavarsym(para.parasym).is_regvar(false));
addstatement(createstatement,tempnode);
{ assign the value of the parameter to the temp, except in case of the function result }
{ (in that case, para.left is a block containing the creation of a new temp, while we }
@ -2233,7 +2234,7 @@ type
{ temp }
else if (paracomplexity > 1) then
begin
tempnode := ctempcreatenode.create(voidpointertype,voidpointertype.def.size,tt_persistent,not(tparavarsym(para.parasym).varregable in [vr_none,vr_addr]));
tempnode := ctempcreatenode.create(voidpointertype,voidpointertype.def.size,tt_persistent,tparavarsym(para.parasym).is_regvar(true));
addstatement(createstatement,tempnode);
addstatement(createstatement,cassignmentnode.create(ctemprefnode.create(tempnode),
caddrnode.create_internal(para.left)));
@ -2424,13 +2425,6 @@ type
expectloc:=LOC_REFERENCE;
end
else
{ for win32 records returned in EDX:EAX, we
move them to memory after ... }
if (resulttype.def.deftype=recorddef) then
begin
expectloc:=LOC_REFERENCE;
end
else
{ ansi/widestrings must be registered, so we can dispose them }
if is_ansistring(resulttype.def) or
is_widestring(resulttype.def) then
@ -2477,8 +2471,16 @@ type
end;
else
begin
expectloc:=LOC_REGISTER;
registersint:=1;
expectloc:=procdefinition.funcretloc[callerside].loc;
if (expectloc = LOC_REGISTER) then
{$ifndef cpu64bit}
if (resulttype.def.size > sizeof(aint)) then
registersint:=2
else
{$endif cpu64bit}
registersint:=1
else
registersint:=0;
end;
end;
end

25
compiler/ncgmem.pas
View File

@ -313,17 +313,22 @@ implementation
LOC_REGISTER,
LOC_CREGISTER:
begin
if (left.location.loc = LOC_REGISTER) then
location.loc := LOC_SUBSETREG
if (left.resulttype.def.size > sizeof(aint)) then
location_force_mem(current_asmdata.CurrAsmList,location)
else
location.loc := LOC_CSUBSETREG;
location.size:=def_cgsize(resulttype.def);
location.subsetreg := left.location.register;
location.subsetregsize := left.location.size;
if (target_info.endian = ENDIAN_BIG) then
location.startbit := (tcgsize2size[location.subsetregsize] - tcgsize2size[location.size] - vs.fieldoffset) * 8
else
location.startbit := (vs.fieldoffset * 8);
begin
if (left.location.loc = LOC_REGISTER) then
location.loc := LOC_SUBSETREG
else
location.loc := LOC_CSUBSETREG;
location.size:=def_cgsize(resulttype.def);
location.subsetreg := left.location.register;
location.subsetregsize := left.location.size;
if (target_info.endian = ENDIAN_BIG) then
location.startbit := (tcgsize2size[location.subsetregsize] - tcgsize2size[location.size] - vs.fieldoffset) * 8
else
location.startbit := (vs.fieldoffset * 8);
end;
end;
LOC_SUBSETREG,
LOC_CSUBSETREG:

15
compiler/nmem.pas
View File

@ -613,7 +613,20 @@ implementation
end
else
begin
expectloc:=left.expectloc;
case left.expectloc of
LOC_REGISTER:
// can happen for function results on win32 and darwin/x86
if (left.resulttype.def.size > sizeof(aint)) then
expectloc:=LOC_REFERENCE
else
expectloc:=LOC_SUBSETREG;
LOC_CREGISTER:
expectloc:=LOC_CSUBSETREG;
LOC_REFERENCE,
LOC_CREFERENCE:
expectloc:=left.expectloc;
else internalerror(20060521);
end;
end;
end;