* support g_call_system_proc() inside the system unit for routines whose

    implementation hasn't been parsed yet

git-svn-id: branches/jvmbackend@18876 -

compiler/hlcgobj.pas

@@ -2922,6 +2922,9 @@ implementation
       pd: tprocdef;
     begin
       srsym:=tsym(systemunit.find(procname));
+      if not assigned(srsym) and
+         (cs_compilesystem in current_settings.moduleswitches) then
+        srsym:=tsym(systemunit.Find(upper(procname)));
       if not assigned(srsym) or
          (srsym.typ<>procsym) then
         Message1(cg_f_unknown_compilerproc,procname);