paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-23 01:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* use sametext instead of converting case

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-04-07 14:50:24 +02:00
parent 6e964d153e
commit 5130e82af0
2 changed files with 2 additions and 2 deletions

2
utils/fpcres/fpcjres.pas
View File

@ -116,7 +116,7 @@ begin
end;
tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
'.jar');
if lowercase(tmp)=lowercase(params.InputFiles[0]) then
if sametext(tmp,params.InputFiles[0]) then
tmp:=tmp+'.jar';
params.OutputFile:=tmp;
end;

2
utils/fpcres/fpcres.pas
View File

@ -161,7 +161,7 @@ begin
end;
tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
ObjFormats[CurrentTarget.objformat].ext);
if lowercase(tmp)=lowercase(params.InputFiles[0]) then
if SameText(tmp,params.InputFiles[0]) then
tmp:=tmp+ObjFormats[CurrentTarget.objformat].ext;
params.OutputFile:=tmp;
end;