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

* fixed callparatemp so it works with vs_var, vs_out and formal const

Browse Source 
parameters
This commit is contained in:
Jonas Maebe 2003-05-14 19:35:50 +00:00
parent 6ecd566473
commit bfd98ec80d
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/ncal.pas
View File

@ -2218,12 +2218,19 @@ type
newblock: tblocknode; newblock: tblocknode;
newstatement: tstatementnode; newstatement: tstatementnode;
temp: ttempcreatenode; temp: ttempcreatenode;
curparaitem: tparaitem;
orgtype: ^ttype;
foundcall: boolean; foundcall: boolean;
take_addr: boolean;
begin begin
foundcall := false; foundcall := false;
curpara := tcallparanode(left); curpara := tcallparanode(left);
curparaitem:=tparaitem(procdefinition.Para.last);
if assigned(curpara) then if assigned(curpara) then
curpara := tcallparanode(curpara.right); begin
curpara := tcallparanode(curpara.right);
curparaitem:=tparaitem(curparaitem.previous);
end;
newblock := nil; newblock := nil;
while assigned(curpara) do while assigned(curpara) do
begin begin
@ -2234,16 +2241,29 @@ type
foundcall := true; foundcall := true;
newblock := internalstatements(newstatement,false); newblock := internalstatements(newstatement,false);
end; end;
temp := ctempcreatenode.create(curpara.left.resulttype,curpara.left.resulttype.def.size,true); take_addr := (curparaitem.paratyp in [vs_var,vs_out]) or
((curparaitem.paratype.def.deftype = formaldef));
if not(take_addr) then
temp := ctempcreatenode.create(curpara.left.resulttype,curpara.left.resulttype.def.size,true)
else
begin
temp := ctempcreatenode.create(voidpointertype,pointer_size,true);
orgtype := @curpara.left.resulttype;
end;
addstatement(newstatement,temp); addstatement(newstatement,temp);
if take_addr then
curpara.left := caddrnode.create(curpara.left);
addstatement(newstatement, addstatement(newstatement,
cassignmentnode.create(ctemprefnode.create(temp),curpara.left)); cassignmentnode.create(ctemprefnode.create(temp),curpara.left));
{ after the assignment, turn the temp into a non-persistent one, so } { after the assignment, turn the temp into a non-persistent one, so }
{ that it will be freed once it's used as parameter } { that it will be freed once it's used as parameter }
addstatement(newstatement,ctempdeletenode.create_normal_temp(temp)); addstatement(newstatement,ctempdeletenode.create_normal_temp(temp));
curpara.left := ctemprefnode.create(temp); curpara.left := ctemprefnode.create(temp);
if take_addr then
curpara.left := ctypeconvnode.create_explicit(cderefnode.create(curpara.left),orgtype^);
end; end;
curpara := tcallparanode(curpara.right); curpara := tcallparanode(curpara.right);
curparaitem := tparaitem(curparaitem.previous);
end; end;
if assigned(newblock) then if assigned(newblock) then
firstpass(newblock); firstpass(newblock);
@ -2724,7 +2744,11 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.153 2003-05-13 20:53:41 peter Revision 1.154 2003-05-14 19:35:50 jonas
* fixed callparatemp so it works with vs_var, vs_out and formal const
parameters
Revision 1.153 2003/05/13 20:53:41 peter
* constructors return in register * constructors return in register
Revision 1.152 2003/05/13 15:18:49 peter Revision 1.152 2003/05/13 15:18:49 peter