瀏覽代碼

+ also support sp_internal for constsyms (mark them as "synthetic")

git-svn-id: branches/jvmbackend@18652 -
Jonas Maebe 14 年之前
父節點
當前提交
4af73c0c51
共有 1 個文件被更改,包括 2 次插入0 次删除
  1. 2 0
      compiler/agjasmin.pas

+ 2 - 0
compiler/agjasmin.pas

@@ -796,6 +796,8 @@ implementation
         result:=VisibilityToStr(sym.visibility);
         { formal constants are always class-level, not instance-level }
         result:=result+'static final ';
+        if sp_internal in sym.symoptions then
+          result:=result+'synthetic ';
         result:=result+jvmmangledbasename(sym,true);
         result:=result+ConstAssignmentValue(tconstsym(sym));
       end;