Explorar o código

* make sure not to decrease the conversion prefernce of proc -> procvar from
te_convert_l5 to te_convert_operator (fixes webtbs/tw15777* with the
nested procvar support)

git-svn-id: branches/nestedprocvars@15692 -

Jonas Maebe %!s(int64=15) %!d(string=hai) anos
pai
achega
4af3f8c0aa
Modificáronse 1 ficheiros con 4 adicións e 1 borrados
  1. 4 1
      compiler/defcmp.pas

+ 4 - 1
compiler/defcmp.pas

@@ -1204,7 +1204,10 @@ implementation
                         if subeq>te_incompatible then
                          begin
                            doconv:=tc_proc_2_procvar;
-                           eq:=pred(subeq);
+                           if subeq>te_convert_l5 then
+                             eq:=pred(subeq)
+                           else
+                             eq:=subeq;
                          end;
                       end;
                    end;