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

* also generate the caller paraloc info of a procedure if it doesn't exist

Browse Source 
yet at the start of pass_2
This commit is contained in:
Jonas Maebe 2003-07-06 10:18:47 +00:00
parent af3946938a
commit b69219bae4
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pass_2.pas
View File

@ -275,8 +275,15 @@ implementation
{ assign parameter locations } { assign parameter locations }
current_procinfo.after_pass1; current_procinfo.after_pass1;
{ paraloc register info is necessary for regvars } { callee paraloc register info is necessary for regvars }
paramanager.create_paraloc_info(current_procinfo.procdef,calleeside); paramanager.create_paraloc_info(current_procinfo.procdef,calleeside);
{ caller paraloc info is also necessary in the stackframe_entry }
{ code of the ppc (and possibly other processors) }
if not current_procinfo.procdef.has_paraloc_info then
begin
paramanager.create_paraloc_info(current_procinfo.procdef,callerside);
current_procinfo.procdef.has_paraloc_info:=true;
end;
{ process register variable stuff (JM) } { process register variable stuff (JM) }
assign_regvars(p); assign_regvars(p);
@ -303,7 +310,11 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.58 2003-07-05 20:13:03 jonas Revision 1.59 2003-07-06 10:18:47 jonas
* also generate the caller paraloc info of a procedure if it doesn't exist
yet at the start of pass_2
Revision 1.58 2003/07/05 20:13:03 jonas
* create_paraloc_info() is now called separately for the caller and * create_paraloc_info() is now called separately for the caller and
callee info callee info
* fixed ppc cycle * fixed ppc cycle