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

* check for refs>0 in init/final local data

Browse Source
This commit is contained in:
peter 2003-09-23 21:03:59 +00:00
parent d3063f722c
commit 72b8932713
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/ncgutil.pas
View File

@ -924,6 +924,7 @@ implementation
begin
list:=taasmoutput(arg);
if (tsym(p).typ=varsym) and
(tvarsym(p).refs>0) and
assigned(tvarsym(p).vartype.def) and
not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then
@ -956,7 +957,8 @@ implementation
case tsym(p).typ of
varsym :
begin
if not(vo_is_funcret in tvarsym(p).varoptions) and
if (tvarsym(p).refs>0) and
not(vo_is_funcret in tvarsym(p).varoptions) and
assigned(tvarsym(p).vartype.def) and
not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then
@ -2053,7 +2055,10 @@ implementation
end.
{
$Log$
Revision 1.146 2003-09-23 17:56:05 peter
Revision 1.147 2003-09-23 21:03:59 peter
* check for refs>0 in init/final local data
Revision 1.146 2003/09/23 17:56:05 peter
* locals and paras are allocated in the code generation
* tvarsym.localloc contains the location of para/local when
generating code for the current procedure