Browse Source

* fixed proc_to_procvar() type conversion in case the target procvar
type was generated on-the-fly rather than specified to the
type conversion node

git-svn-id: branches/jvmbackend@18762 -

Jonas Maebe 14 years ago
parent
commit
1a0913c462
1 changed files with 2 additions and 1 deletions
  1. 2 1
      compiler/jvm/njvmcnv.pas

+ 2 - 1
compiler/jvm/njvmcnv.pas

@@ -199,7 +199,8 @@ implementation
    function tjvmtypeconvnode.typecheck_proc_to_procvar: tnode;
    function tjvmtypeconvnode.typecheck_proc_to_procvar: tnode;
     begin
     begin
       result:=inherited typecheck_proc_to_procvar;
       result:=inherited typecheck_proc_to_procvar;
-      if not assigned(totypedef) then
+      if not assigned(totypedef) or
+         (totypedef.typ<>procvardef) then
         begin
         begin
           if assigned(tprocvardef(resultdef).classdef) then
           if assigned(tprocvardef(resultdef).classdef) then
             internalerror(2011072405);
             internalerror(2011072405);