Sfoglia il codice sorgente

* Fixed the jvm target after r45436.

git-svn-id: trunk@45437 -
yury 5 anni fa
parent
commit
afc568cf93
1 ha cambiato i file con 1 aggiunte e 1 eliminazioni
  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
           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