paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 09:50:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed the 'unresolved externals' linker error when smartlinking msdos executables

Browse Source 
git-svn-id: branches/i8086@23968 -
This commit is contained in:
nickysn 2013-03-23 00:47:12 +00:00
parent a1ee8ab9bc
commit 1646f53d59
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/x86/agx86nsm.pas
View File

@ -588,7 +588,7 @@ interface
ait_datablock :
begin
if tai_datablock(hp).is_global then
if tai_datablock(hp).is_global or SmartAsm then
begin
AsmWrite(#9'GLOBAL ');
AsmWriteLn(tai_datablock(hp).sym.name);
@ -842,7 +842,14 @@ interface
ait_label :
begin
if tai_label(hp).labsym.is_used then
AsmWriteLn(tai_label(hp).labsym.name+':');
begin
if SmartAsm then
begin
AsmWrite(#9'GLOBAL ');
AsmWriteLn(tai_label(hp).labsym.name);
end;
AsmWriteLn(tai_label(hp).labsym.name+':');
end;
if SmartAsm then
AddSymbol(tai_label(hp).labsym.name,true);
end;
@ -851,7 +858,7 @@ interface
begin
if tai_symbol(hp).has_value then
internalerror(2009090803);
if tai_symbol(hp).is_global then
if tai_symbol(hp).is_global or SmartAsm then
begin
AsmWrite(#9'GLOBAL ');
AsmWriteLn(tai_symbol(hp).sym.name);