Преглед на файлове

* 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 години
родител
ревизия
1a0913c462
променени са 1 файла, в които са добавени 2 реда и са изтрити 1 реда
  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;
     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);