Forráskód Böngészése

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

git-svn-id: branches/jvmbackend@18652 -
Jonas Maebe 14 éve
szülő
commit
4af73c0c51
1 módosított fájl, 2 hozzáadás és 0 törlés
  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;