소스 검색

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