* Merging revisions r46228 from trunk:

    ------------------------------------------------------------------------
    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 -

packages/pastojs/src/pas2jsjsresources.pp

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