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

* Fixed the jvm target after r45436.

Browse Source 
git-svn-id: trunk@45437 -
This commit is contained in:
yury 2020-05-19 14:01:19 +00:00
parent 2808873d1b
commit afc568cf93
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/ncgnstmm.pas
View File

@ -105,7 +105,7 @@ implementation
of the current routine (and hence it has not been moved into the
nestedfp struct), get the original nestedfp parameter }
useparentfppara:=not assigned(current_procinfo.procdef.parentfpstruct);
hsym:=parentfpsym;
hsym:=tparavarsym(current_procinfo.procdef.parast.Find('parentfp'));
if current_procinfo.procdef.parast.symtablelevel>parentpd.parast.symtablelevel then
useparentfppara:=
useparentfppara or