paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-09 07:28:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* mark sp_internal fields as "synthetic"

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

git-svn-id: branches/jvmbackend@18615 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:15:20 +00:00
parent 30478a14b6
commit d0b1bfa52d
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/agjasmin.pas
View File

@ -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;

1
compiler/pdecl.pas
View File

@ -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}