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

* keep localst in memory, it is also needed for finalizing

Browse Source 
typedconst
This commit is contained in:
peter 2004-09-13 20:34:28 +00:00
parent 63532ef166
commit 3b59efea14
1 changed files with 11 additions and 37 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
compiler/psub.pas
View File

@ -146,24 +146,12 @@ implementation
procedure check_finalize_locals(p : tnamedindexitem;arg:pointer);
begin
case tsym(p).typ of
varsym :
begin
if (tvarsym(p).refs>0) and
not(vo_is_funcret in tvarsym(p).varoptions) and
not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then
include(current_procinfo.flags,pi_needs_implicit_finally);
end;
{
must be done at the end of the program, not at the end of the procedure
typedconstsym :
begin
if ttypedconstsym(p).typedconsttype.def.needs_inittable then
include(current_procinfo.flags,pi_needs_implicit_finally);
end;
}
end;
if (tsym(p).typ=varsym) and
(tvarsym(p).refs>0) and
not(vo_is_funcret in tvarsym(p).varoptions) and
not(is_class(tvarsym(p).vartype.def)) and
tvarsym(p).vartype.def.needs_inittable then
include(current_procinfo.flags,pi_needs_implicit_finally);
end;
@ -478,7 +466,6 @@ implementation
var
pd : tprocdef;
newstatement : tstatementnode;
dummycall : tcallnode;
begin
generate_except_block:=internalstatements(newstatement);
@ -927,23 +914,6 @@ implementation
procedure tcgprocinfo.resetprocdef;
begin
{ the local symtables can be deleted, but the parast }
{ doesn't, (checking definitons when calling a }
{ function }
{ not for a inline procedure !! (PM) }
{ at lexlevel = 1 localst is the staticsymtable itself }
{ so no dispose here !! }
{ The localst is also needed for debuginfo }
if assigned(code) and
not(cs_debuginfo in aktmoduleswitches) and
not(cs_browser in aktmoduleswitches) and
(procdef.proccalloption<>pocall_inline) then
begin
if procdef.parast.symtablelevel>=normal_function_level then
procdef.localst.free;
procdef.localst:=nil;
end;
{ remove code tree, if not inline procedure }
if assigned(code) then
begin
@ -1423,7 +1393,11 @@ implementation
end.
{
$Log$
Revision 1.204 2004-09-04 21:18:47 armin
Revision 1.205 2004-09-13 20:34:28 peter
* keep localst in memory, it is also needed for finalizing
typedconst
Revision 1.204 2004/09/04 21:18:47 armin
* target netwlibc added (libc is preferred for newer netware versions)
Revision 1.203 2004/08/14 14:50:42 florian