paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 00:19:25 +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 of the current routine (and hence it has not been moved into the
nestedfp struct), get the original nestedfp parameter } nestedfp struct), get the original nestedfp parameter }
useparentfppara:=not assigned(current_procinfo.procdef.parentfpstruct); 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 if current_procinfo.procdef.parast.symtablelevel>parentpd.parast.symtablelevel then
useparentfppara:= useparentfppara:=
useparentfppara or useparentfppara or