2
0
Эх сурвалжийг харах

* mark sp_internal fields as "synthetic"
* don't mark class var fields as sp_internal (since they're user-visible)

git-svn-id: branches/jvmbackend@18615 -

Jonas Maebe 14 жил өмнө
parent
commit
d0b1bfa52d

+ 2 - 0
compiler/agjasmin.pas

@@ -826,6 +826,8 @@ implementation
           result:=result+'static ';
         if sym.varspez in [vs_const,vs_final] then
           result:=result+'final ';
+        if sp_internal in sym.symoptions then
+          result:=result+'synthetic ';
         result:=result+jvmmangledbasename(sym,true);
       end;
 

+ 0 - 1
compiler/pdecl.pas

@@ -244,7 +244,6 @@ implementation
                        tabstractrecordsymtable(symtablestack.top).get_unit_symtable.insert(sym);
 {$else not jvm}
                        sym:=tstaticvarsym.create(orgname,varspez,hdef,[]);
-                       include(sym.symoptions,sp_internal);
                        symtablestack.top.insert(sym);
                        orgname:=static_name;
 {$endif not jvm}