Explorar el Código

* don't write field definitions for varsyms marked as external

git-svn-id: branches/jvmbackend@18618 -
Jonas Maebe hace 14 años
padre
commit
297f3d087d
Se han modificado 1 ficheros con 3 adiciones y 0 borrados
  1. 3 0
      compiler/agjasmin.pas

+ 3 - 0
compiler/agjasmin.pas

@@ -917,6 +917,9 @@ implementation
         { internal static field definition alias -> skip }
         if sp_static in sym.symoptions then
           exit;
+        { external definition -> no definition here }
+        if vo_is_external in sym.varoptions then
+          exit;
         AsmWrite('.field ');
         AsmWriteln(FieldDefinition(sym));
       end;