paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 17:47:56 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Sven/Sarah Barth 2023-10-20 16:29:57 +02:00
parent 287ef8e79a
commit 879f48d215
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/fppu.pas
View File

@ -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);