Browse Source

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

git-svn-id: branches/jvmbackend@18652 -
Jonas Maebe 14 years ago
parent
commit
4af73c0c51
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/agjasmin.pas

+ 2 - 0
compiler/agjasmin.pas

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