paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 04:49:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* name nestedfpstruct types so they can no longer be confused with names of

Browse Source 
nested classes by e.G. the bcel bytecode verification library

git-svn-id: branches/jvmbackend@18629 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:16:42 +00:00
parent 460c7a519b
commit b50bd9534d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/symcreat.pas
View File

@ -642,8 +642,9 @@ implementation
old_symtablestack:=symtablestack; old_symtablestack:=symtablestack;
symtablestack:=old_symtablestack.getcopyuntil(current_module.localsymtable); symtablestack:=old_symtablestack.getcopyuntil(current_module.localsymtable);
{ create struct to hold local variables and parameters that are { create struct to hold local variables and parameters that are
accessed from within nested routines } accessed from within nested routines (start with extra dollar to prevent
nestedvarsst:=trecordsymtable.create(current_module.realmodulename^+'$$_fpc_nestedvars$'+tostr(pd.defid),current_settings.alignment.localalignmax); the JVM from thinking this is a nested class in the unit) }
nestedvarsst:=trecordsymtable.create('$'+current_module.realmodulename^+'$$_fpc_nestedvars$'+tostr(pd.defid),current_settings.alignment.localalignmax);
nestedvarsdef:=trecorddef.create(nestedvarsst.name^,nestedvarsst); nestedvarsdef:=trecorddef.create(nestedvarsst.name^,nestedvarsst);
{$ifdef jvm} {$ifdef jvm}
maybe_guarantee_record_typesym(nestedvarsdef,nestedvarsdef.owner); maybe_guarantee_record_typesym(nestedvarsdef,nestedvarsdef.owner);