|
@@ -2127,7 +2127,7 @@ implementation
|
|
|
Init/Done Symtable
|
|
|
****************************************************************************}
|
|
|
|
|
|
- procedure IniTSymtable;
|
|
|
+ procedure InitSymtable;
|
|
|
begin
|
|
|
{ Reset symbolstack }
|
|
|
symtablestack:=nil;
|
|
@@ -2147,6 +2147,7 @@ implementation
|
|
|
class_tobject:=nil;
|
|
|
interface_iunknown:=nil;
|
|
|
rec_tguid:=nil;
|
|
|
+ aktobjectdef:=nil;
|
|
|
dupnr:=0;
|
|
|
end;
|
|
|
|