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

* ensure that aprocdef is initialized to Nil to catch problems with compare_defs_ext() easier

git-svn-id: trunk@42699 -
svenbarth преди 6 години
родител
ревизия
663040a666
променени са 1 файла, в които са добавени 1 реда и са изтрити 0 реда
  1. 1 0
      compiler/ncnv.pas

+ 1 - 0
compiler/ncnv.pas

@@ -2450,6 +2450,7 @@ implementation
               include(cdoptions,cdo_explicit);
               include(cdoptions,cdo_explicit);
             if nf_internal in flags then
             if nf_internal in flags then
               include(cdoptions,cdo_internal);
               include(cdoptions,cdo_internal);
+            aprocdef:=nil;
             eq:=compare_defs_ext(left.resultdef,resultdef,left.nodetype,convtype,aprocdef,cdoptions);
             eq:=compare_defs_ext(left.resultdef,resultdef,left.nodetype,convtype,aprocdef,cdoptions);
             case eq of
             case eq of
               te_exact,
               te_exact,