paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 23:30:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

pastojs: less hints

Browse Source 
git-svn-id: trunk@42474 -
This commit is contained in:
Mattias Gaertner 2019-07-20 20:14:52 +00:00
parent 93c130979f
commit 8206049dc1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
packages/pastojs/src/pas2jscompiler.pp
View File

@ -38,7 +38,8 @@ uses
// !! No filesystem units here.
Classes, SysUtils, contnrs,
jsbase, jstree, jswriter, JSSrcMap, fpjson,
PScanner, PParser, PasTree, PasResolver, PasResolveEval, PasUseAnalyzer, pas2jsresstrfile,
PScanner, PParser, PasTree, PasResolver, PasResolveEval, PasUseAnalyzer,
pas2jsresstrfile,
FPPas2Js, FPPJsSrcMap, Pas2jsLogger, Pas2jsFS, Pas2jsPParser, Pas2jsUseAnalyzer;
const
@ -2562,7 +2563,7 @@ begin
if aValue.Kind=revkString then
FResourceStrings.AddString(Res.Name,TResEvalString(aValue).S)
else if aValue.Kind=revkUnicodeString then
FResourceStrings.AddString(Res.Name,TResEvalUTF16(aValue).S)
FResourceStrings.AddString(Res.Name,TJSONStringType(TResEvalUTF16(aValue).S))
else
Log.Log(mtNote,sSkipNoConstResourcestring,nSkipNoConstResourcestring,aFile.PasFileName);
ReleaseEvalValue(aValue);