Explorar o código

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

git-svn-id: branches/jvmbackend@18618 -
Jonas Maebe %!s(int64=14) %!d(string=hai) anos
pai
achega
297f3d087d
Modificáronse 1 ficheiros con 3 adicións e 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;