paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 08:46:09 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
utils/fpcres/fpcjres.pas
View File

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

2
utils/fpcres/fpcres.pas
View File

@ -161,7 +161,7 @@ begin
end; end;
tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]), tmp:=ChangeFileExt(ExtractFileName(params.InputFiles[0]),
ObjFormats[CurrentTarget.objformat].ext); 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; tmp:=tmp+ObjFormats[CurrentTarget.objformat].ext;
params.OutputFile:=tmp; params.OutputFile:=tmp;
end; end;