Browse 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 1 year ago
parent
commit
879f48d215
1 changed files with 1 additions and 1 deletions
  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);