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

* don't lowercase resource file name in delphi mode

Browse Source 
git-svn-id: trunk@1180 -
This commit is contained in:
florian 2005-09-25 08:48:13 +00:00
parent faa5630fab
commit fa90e913df
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/scandir.pas
View File

@ -844,7 +844,10 @@ implementation
if Assigned(Current_Module) then
begin
delete(S,1,1);
insert(lower(current_module.modulename^),S,1);
if m_delphi in aktmodeswitches then
insert(current_module.modulename^,S,1)
else
insert(lower(current_module.modulename^),S,1);
end;
s:=AddExtension(FixFileName(s),target_info.resext);
if target_info.res<>res_none then