Explorar o código

Fix go32v2 target by adding tf_supports_hidden_symbols flag and do nothing for hidden symbols

Pierre Muller hai 2 semanas
pai
achega
3d58069199
Modificáronse 2 ficheiros con 2 adicións e 2 borrados
  1. 1 1
      compiler/aggas.pas
  2. 1 1
      compiler/systems/i_go32v2.pas

+ 1 - 1
compiler/aggas.pas

@@ -1832,7 +1832,7 @@ implementation
         { on Windows/(PE)COFF, global symbols are hidden by default: global
           symbols that are not explicitly exported from an executable/library,
           become hidden }
-        if (target_info.system in (systems_windows+systems_wince+systems_nativent)) then
+        if (target_info.system in (systems_windows+systems_wince+systems_nativent+[system_i386_go32v2])) then
           exit;
         if target_info.system in systems_darwin then
           writer.AsmWrite(#9'.private_extern ')

+ 1 - 1
compiler/systems/i_go32v2.pas

@@ -34,7 +34,7 @@ unit i_go32v2;
             system       : system_i386_GO32V2;
             name         : 'GO32 V2 DOS extender';
             shortname    : 'Go32v2';
-            flags        : [tf_use_8_3,tf_smartlink_sections,tf_no_pic_supported];
+            flags        : [tf_use_8_3,tf_smartlink_sections,tf_no_pic_supported,tf_supports_hidden_symbols];
             cpu          : cpu_i386;
             unit_env     : 'GO32V2UNITS';
             extradefines : 'DPMI';