2
0
Эх сурвалжийг харах

* 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 жил өмнө
parent
commit
1a0913c462

+ 2 - 1
compiler/jvm/njvmcnv.pas

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