Pārlūkot izejas kodu

* fixed fake nested procedures support

git-svn-id: branches/jvmbackend@18543 -
Jonas Maebe 14 gadi atpakaļ
vecāks
revīzija
63962043a5
2 mainītis faili ar 2 papildinājumiem un 1 dzēšanām
  1. 1 0
      compiler/jvm/njvmmem.pas
  2. 1 1
      compiler/ncgld.pas

+ 1 - 0
compiler/jvm/njvmmem.pas

@@ -187,5 +187,6 @@ implementation
 
 begin
    cvecnode:=tjvmvecnode;
+   cloadparentfpnode:=tjvmloadparentfpnode;
    cloadvmtaddrnode:=tjvmloadvmtaddrnode;
 end.

+ 1 - 1
compiler/ncgld.pas

@@ -412,7 +412,7 @@ implementation
             localvarsym :
               begin
                 vs:=tabstractnormalvarsym(symtableentry);
-{$if not defined(jvm) or not defined(nounsupported)}
+{$if not defined(jvm) or defined(nounsupported)}
                 { Nested variable }
                 if assigned(left) then
                   begin