瀏覽代碼

* Fixed the jvm target after r45436.

git-svn-id: trunk@45437 -
yury 5 年之前
父節點
當前提交
afc568cf93
共有 1 個文件被更改,包括 1 次插入1 次删除
  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