Explorar o código

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

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