Browse Source

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

git-svn-id: branches/jvmbackend@18618 -
Jonas Maebe 14 years ago
parent
commit
297f3d087d
1 changed files with 3 additions and 0 deletions
  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;