|
@@ -239,6 +239,7 @@ implementation
|
|
|
sym.deprecatedmsg:=deprecatedmsg;
|
|
sym.deprecatedmsg:=deprecatedmsg;
|
|
|
sym.visibility:=symtablestack.top.currentvisibility;
|
|
sym.visibility:=symtablestack.top.currentvisibility;
|
|
|
symtablestack.top.insert(sym);
|
|
symtablestack.top.insert(sym);
|
|
|
|
|
+ sym.register_sym;
|
|
|
{$ifdef jvm}
|
|
{$ifdef jvm}
|
|
|
{ for the JVM target, some constants need to be
|
|
{ for the JVM target, some constants need to be
|
|
|
initialized at run time (enums, sets) -> create fake
|
|
initialized at run time (enums, sets) -> create fake
|
|
@@ -295,6 +296,7 @@ implementation
|
|
|
sym.visibility:=symtablestack.top.currentvisibility;
|
|
sym.visibility:=symtablestack.top.currentvisibility;
|
|
|
symtablestack.top.insert(sym);
|
|
symtablestack.top.insert(sym);
|
|
|
end;
|
|
end;
|
|
|
|
|
+ sym.register_sym;
|
|
|
current_tokenpos:=storetokenpos;
|
|
current_tokenpos:=storetokenpos;
|
|
|
{ procvar can have proc directives, but not type references }
|
|
{ procvar can have proc directives, but not type references }
|
|
|
if (hdef.typ=procvardef) and
|
|
if (hdef.typ=procvardef) and
|
svenbarth