Parcourir la source

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

Sven/Sarah Barth il y a 1 an
Parent
commit
879f48d215
1 fichiers modifiés avec 1 ajouts et 1 suppressions
  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);