Browse Source

* fixed fake nested procedures support

git-svn-id: branches/jvmbackend@18543 -
Jonas Maebe 14 years ago
parent
commit
63962043a5
2 changed files with 2 additions and 1 deletions
  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
 begin
    cvecnode:=tjvmvecnode;
    cvecnode:=tjvmvecnode;
+   cloadparentfpnode:=tjvmloadparentfpnode;
    cloadvmtaddrnode:=tjvmloadvmtaddrnode;
    cloadvmtaddrnode:=tjvmloadvmtaddrnode;
 end.
 end.

+ 1 - 1
compiler/ncgld.pas

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