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

* don't initialize if localvarsym is set because that varsym will

Browse Source 
already be initialized
  * first initialize local data before copy of value para's (merged)
This commit is contained in:
peter 2000-08-24 19:07:54 +00:00
parent 24cc0eba5d
commit 9adb938a0a
1 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/cgai386.pas
View File

@ -2918,6 +2918,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
not((pvarsym(p)^.vartype.def^.deftype=objectdef) and not((pvarsym(p)^.vartype.def^.deftype=objectdef) and
pobjectdef(pvarsym(p)^.vartype.def)^.is_class) and pobjectdef(pvarsym(p)^.vartype.def)^.is_class) and
pvarsym(p)^.vartype.def^.needs_inittable and pvarsym(p)^.vartype.def^.needs_inittable and
(not assigned(pvarsym(p)^.localvarsym)) and
((pvarsym(p)^.varspez=vs_value) {or ((pvarsym(p)^.varspez=vs_value) {or
(pvarsym(p)^.varspez=vs_const) and (pvarsym(p)^.varspez=vs_const) and
not(dont_copy_const_param(pvarsym(p)^.definition))}) then not(dont_copy_const_param(pvarsym(p)^.definition))}) then
@ -2948,6 +2949,7 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
assigned(pvarsym(p)^.vartype.def) and assigned(pvarsym(p)^.vartype.def) and
not((pvarsym(p)^.vartype.def^.deftype=objectdef) and not((pvarsym(p)^.vartype.def^.deftype=objectdef) and
pobjectdef(pvarsym(p)^.vartype.def)^.is_class) and pobjectdef(pvarsym(p)^.vartype.def)^.is_class) and
(not assigned(pvarsym(p)^.localvarsym)) and
pvarsym(p)^.vartype.def^.needs_inittable then pvarsym(p)^.vartype.def^.needs_inittable then
begin begin
{ not all kind of parameters need to be finalized } { not all kind of parameters need to be finalized }
@ -3485,11 +3487,6 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
initialize(procinfo^.returntype.def,r,ret_in_param(procinfo^.returntype.def)); initialize(procinfo^.returntype.def,r,ret_in_param(procinfo^.returntype.def));
end; end;
{ generate copies of call by value parameters }
if not(po_assembler in aktprocsym^.definition^.procoptions) and
not (pocall_cdecl in aktprocsym^.definition^.proccalloptions) then
aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}copyvalueparas);
{ initialisize local data like ansistrings } { initialisize local data like ansistrings }
case aktprocsym^.definition^.proctypeoption of case aktprocsym^.definition^.proctypeoption of
potype_unitinit: potype_unitinit:
@ -3505,6 +3502,11 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
aktprocsym^.definition^.localst^.foreach({$ifndef TP}@{$endif}initialize_data); aktprocsym^.definition^.localst^.foreach({$ifndef TP}@{$endif}initialize_data);
end; end;
{ generate copies of call by value parameters }
if not(po_assembler in aktprocsym^.definition^.procoptions) and
not (pocall_cdecl in aktprocsym^.definition^.proccalloptions) then
aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}copyvalueparas);
{ add a reference to all call by value/const parameters } { add a reference to all call by value/const parameters }
aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}incr_data); aktprocsym^.definition^.parast^.foreach({$ifndef TP}@{$endif}incr_data);
@ -4070,7 +4072,12 @@ procedure mov_reg_to_dest(p : ptree; s : topsize; reg : tregister);
end. end.
{ {
$Log$ $Log$
Revision 1.11 2000-08-19 20:09:33 peter Revision 1.12 2000-08-24 19:07:54 peter
* don't initialize if localvarsym is set because that varsym will
already be initialized
* first initialize local data before copy of value para's (merged)
Revision 1.11 2000/08/19 20:09:33 peter
* check size after checking openarray in push_value_para (merged) * check size after checking openarray in push_value_para (merged)
Revision 1.10 2000/08/16 13:06:06 florian Revision 1.10 2000/08/16 13:06:06 florian