paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-01 18:09: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

11
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
@ -197,7 +197,7 @@
end; end;
end; end;
procedure tdef.write; procedure tdef.write;
begin begin
{$ifdef GDB} {$ifdef GDB}
@ -2379,7 +2379,7 @@ Const local_symtable_index : longint = $8001;
end; end;
pdo:=pdo^.childof; pdo:=pdo^.childof;
end; end;
{ we need TESTLOCALBROWSER para and local symtables { we need TESTLOCALBROWSER para and local symtables
PPU files are then easier to read PM } PPU files are then easier to read PM }
if not assigned(parast) then if not assigned(parast) then
@ -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