2
0
Эх сурвалжийг харах

* 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 жил өмнө
parent
commit
879f48d215
1 өөрчлөгдсөн 1 нэмэгдсэн , 1 устгасан
  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);