|
@@ -1781,7 +1781,8 @@ Begin
|
|
begin
|
|
begin
|
|
if symtablestack.top.symtablelevel<>srsymtable.symtablelevel then
|
|
if symtablestack.top.symtablelevel<>srsymtable.symtablelevel then
|
|
begin
|
|
begin
|
|
- Tlabelsym(sym).nonlocal:=true;
|
|
|
|
|
|
+ if (srsymtable.symtabletype=globalsymtable) or create_smartlink_library then
|
|
|
|
+ Tlabelsym(sym).nonlocal:=true;
|
|
if emit then
|
|
if emit then
|
|
include(current_procinfo.flags,pi_has_interproclabel);
|
|
include(current_procinfo.flags,pi_has_interproclabel);
|
|
end;
|
|
end;
|