Преглед на файлове

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

git-svn-id: branches/jvmbackend@18618 -
Jonas Maebe преди 14 години
родител
ревизия
297f3d087d
променени са 1 файла, в които са добавени 3 реда и са изтрити 0 реда
  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;