paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-18 01:33:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use procdef.defid instead of procdef.procsym.symid to make the names of

Browse Source 
parentfpstructs unique (a single procsym can have multiple overloaded
    procdefs, but a single procdef is unique)

git-svn-id: branches/jvmbackend@18607 -
This commit is contained in:
Jonas Maebe 2011-08-20 08:14:41 +00:00
parent 9aae0c47bd
commit 4f52639871
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/symcreat.pas
View File

@ -487,7 +487,7 @@ implementation
symtablestack:=old_symtablestack.getcopyuntil(current_module.localsymtable);
{ create struct to hold local variables and parameters that are
accessed from within nested routines }
nestedvarsst:=trecordsymtable.create(current_module.realmodulename^+'$$_fpc_nestedvars$'+tostr(pd.procsym.symid),current_settings.alignment.localalignmax);
nestedvarsst:=trecordsymtable.create(current_module.realmodulename^+'$$_fpc_nestedvars$'+tostr(pd.defid),current_settings.alignment.localalignmax);
nestedvarsdef:=trecorddef.create(nestedvarsst.name^,nestedvarsst);
{$ifdef jvm}
jvm_guarantee_record_typesym(nestedvarsdef,nestedvarsdef.owner);