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

* explain why we may have to search for the uppercase version of a symbol in
tcallnode.createintern()

git-svn-id: trunk@31479 -

Jonas Maebe преди 10 години
родител
ревизия
5c5935346a
променени са 1 файла, в които са добавени 4 реда и са изтрити 0 реда
  1. 4 0
      compiler/ncal.pas

+ 4 - 0
compiler/ncal.pas

@@ -1443,6 +1443,10 @@ implementation
          srsym: tsym;
        begin
          srsym := tsym(systemunit.Find(name));
+         { in case we are looking for a non-external compilerproc of which we
+           only have parsed the declaration until now (the symbol name will
+           still be uppercased, because it needs to be matched when we
+           encounter the implementation) }
          if not assigned(srsym) and
             (cs_compilesystem in current_settings.moduleswitches) then
            srsym := tsym(systemunit.Find(upper(name)));