浏览代码

* 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;