diff --git a/compiler/symdef.inc b/compiler/symdef.inc index 233e83b9b7..4cbff9ae3b 100644 --- a/compiler/symdef.inc +++ b/compiler/symdef.inc @@ -72,6 +72,7 @@ next := nil; sym := nil; indexnb := 0; + savesize := 0; if registerdef then symtablestack^.registerdef(@self); has_rtti:=false; @@ -178,7 +179,6 @@ is_in_current:=false; while assigned(p) do begin - if (p=current_module^.globalsymtable) or (p=current_module^.localsymtable) or (p^.symtabletype in [globalsymtable,staticsymtable]) then begin @@ -197,7 +197,7 @@ end; end; - + procedure tdef.write; begin {$ifdef GDB} @@ -2379,7 +2379,7 @@ Const local_symtable_index : longint = $8001; end; pdo:=pdo^.childof; end; - + { we need TESTLOCALBROWSER para and local symtables PPU files are then easier to read PM } if not assigned(parast) then @@ -3409,7 +3409,10 @@ Const local_symtable_index : longint = $8001; { $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 Revision 1.96 1999/02/25 21:02:52 peter