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

* Merging revisions r46228 from trunk:

Browse Source 
------------------------------------------------------------------------
    r46228 | michael | 2020-08-04 15:42:39 +0200 (Tue, 04 Aug 2020) | 1 line
    
    * Lowercase unit name (bug ID 37481)
    ------------------------------------------------------------------------

git-svn-id: branches/fixes_3_2@46649 -
This commit is contained in:
michael 2020-08-23 10:37:01 +00:00
parent 276b6873b2
commit f6f4837950
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
packages/pastojs/src/pas2jsjsresources.pp
View File

@ -83,7 +83,7 @@ begin
aName:=Options.Values['name'];
if aName='' then
aName:=ChangeFileExt(ExtractFileName(aFileName),'');
Result:=Format(SAddResource,[aName,CurrentUnitName,aFormat,aData]);
Result:=Format(SAddResource,[aName,LowerCase(CurrentUnitName),aFormat,aData]);
end;
procedure TJSResourceHandler.HandleResource(aFileName: string; Options: TStrings);