Procházet zdrojové kódy

* the unit name has already been uppercased for the search, so no need to uppercase it again for the message output

Sven/Sarah Barth před 1 rokem
rodič
revize
879f48d215
1 změnil soubory, kde provedl 1 přidání a 1 odebrání
  1. 1 1
      compiler/fppu.pas

+ 1 - 1
compiler/fppu.pas

@@ -2370,7 +2370,7 @@ var
           we create an entry and register the unit }
         if not assigned(hp) then
          begin
-           Message1(unit_u_registering_new_unit,Upper(s));
+           Message1(unit_u_registering_new_unit,ups);
            hp:=tppumodule.create(callermodule,s,fn,true);
            hp.loaded_from:=callermodule;
            addloadedunit(hp);