From b69219bae4044e3c3757d586f43595a2624032f1 Mon Sep 17 00:00:00 2001 From: Jonas Maebe Date: Sun, 6 Jul 2003 10:18:47 +0000 Subject: [PATCH] * also generate the caller paraloc info of a procedure if it doesn't exist yet at the start of pass_2 --- compiler/pass_2.pas | 15 +++++++++++++-- 1 file changed, 13 insertions(+), 2 deletions(-) diff --git a/compiler/pass_2.pas b/compiler/pass_2.pas index 470388bd04..b1f54edfc0 100644 --- a/compiler/pass_2.pas +++ b/compiler/pass_2.pas @@ -275,8 +275,15 @@ implementation { assign parameter locations } 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); + { 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) } assign_regvars(p); @@ -303,7 +310,11 @@ implementation end. { $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 callee info * fixed ppc cycle