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

* reset savesize in tdef.init

Browse Source
This commit is contained in:
peter 1999-03-06 17:24:16 +00:00
parent 925bf35c30
commit a27a69d7af
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/symdef.inc
View File

@ -72,6 +72,7 @@
next := nil; next := nil;
sym := nil; sym := nil;
indexnb := 0; indexnb := 0;
savesize := 0;
if registerdef then if registerdef then
symtablestack^.registerdef(@self); symtablestack^.registerdef(@self);
has_rtti:=false; has_rtti:=false;
@ -178,7 +179,6 @@
is_in_current:=false; is_in_current:=false;
while assigned(p) do while assigned(p) do
begin begin
if (p=current_module^.globalsymtable) or (p=current_module^.localsymtable) if (p=current_module^.globalsymtable) or (p=current_module^.localsymtable)
or (p^.symtabletype in [globalsymtable,staticsymtable]) then or (p^.symtabletype in [globalsymtable,staticsymtable]) then
begin begin
@ -3409,7 +3409,10 @@ Const local_symtable_index : longint = $8001;
{ {
$Log$ $Log$
Revision 1.97 1999-03-01 13:45:04 pierre Revision 1.98 1999-03-06 17:24:16 peter
* reset savesize in tdef.init
Revision 1.97 1999/03/01 13:45:04 pierre
+ added staticppusymtable symtable type for local browsing + added staticppusymtable symtable type for local browsing
Revision 1.96 1999/02/25 21:02:52 peter Revision 1.96 1999/02/25 21:02:52 peter