* explain why we may have to search for the uppercase version of a symbol in

    tcallnode.createintern()

git-svn-id: trunk@31479 -

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)));