Переглянути джерело

* symbols with bind type AB_EXTERNAL_INDIRECT need to be declared as EXTERN for masm/nasm etc.

git-svn-id: trunk@37553 -
florian 7 роки тому
батько
коміт
1556599ad5
2 змінених файлів з 2 додано та 2 видалено
  1. 1 1
      compiler/x86/agx86int.pas
  2. 1 1
      compiler/x86/agx86nsm.pas

+ 1 - 1
compiler/x86/agx86int.pas

@@ -976,7 +976,7 @@ implementation
         for i:=0 to current_asmdata.AsmSymbolDict.Count-1 do
           begin
             sym:=TAsmSymbol(current_asmdata.AsmSymbolDict[i]);
-            if sym.bind=AB_EXTERNAL then
+            if sym.bind in [AB_EXTERNAL,AB_EXTERNAL_INDIRECT] then
               begin
                 case asminfo^.id of
                   as_i386_masm,

+ 1 - 1
compiler/x86/agx86nsm.pas

@@ -1195,7 +1195,7 @@ interface
         for i:=0 to current_asmdata.AsmSymbolDict.Count-1 do
           begin
             sym:=TAsmSymbol(current_asmdata.AsmSymbolDict[i]);
-            if sym.bind=AB_EXTERNAL then
+            if sym.bind in [AB_EXTERNAL,AB_EXTERNAL_INDIRECT] then
               writer.AsmWriteln('EXTERN'#9+sym.name);
           end;
       end;