Browse Source

* Fixed the jvm target after r45436.

git-svn-id: trunk@45437 -
yury 5 years ago
parent
commit
afc568cf93
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/ncgnstmm.pas

+ 1 - 1
compiler/ncgnstmm.pas

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