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

fcl-js: do not escape /

Browse Source 
(cherry picked from commit 410c1bbaa0)
This commit is contained in:
mattias 2022-04-01 22:09:53 +02:00 committed by Mattias Gaertner
parent 68c109035c
commit 5ef774f6ab
3 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/fcl-js/src/jswriter.pp
View File

@ -590,13 +590,12 @@ begin
While I<=L do
begin
c:=S[I];
if (c in [#0..#31,'"','''','/','\'])
if (c in [#0..#31,'"','''','\'])
or (c>=#$ff00) or ((c>=#$D800) and (c<=#$DFFF)) then
begin
R:=R+Copy(S,J,I-J);
Case c of
'\' : R:=R+'\\';
'/' : R:=R+'\/';
'"' : if Quote=jseqSingle then R:=R+'"' else R:=R+'\"';
'''': if Quote=jseqDouble then R:=R+'''' else R:=R+'\''';
#0..#7,#11,#14..#31: R:=R+'\x'+TJSString(hexStr(ord(c),2));

2
packages/fcl-js/tests/tcwriter.pp
View File

@ -2638,7 +2638,7 @@ Var
begin
L:=TJSLiteral.Create(0,0,'');
L.Value.AsString:='ab/cd';
AssertWrite('ab/cd','"ab\/cd"',L);
AssertWrite('ab/cd','"ab/cd"',L);
end;
Procedure TTestLiteralWriter.TestStringsBack;

8
packages/pastojs/tests/tcmodules.pas
View File

@ -493,7 +493,7 @@ type
Procedure TestArray_SetLengthMultiDim;
Procedure TestArray_SetLengthDynOfStatic;
Procedure TestArray_OpenArrayOfString;
Procedure TestArray_ArrayOfCharAssignString; // ToDo
Procedure TestArray_ArrayOfCharAssignString;
Procedure TestArray_ConstRef;
Procedure TestArray_Concat;
Procedure TestArray_Copy;
@ -961,8 +961,6 @@ type
Procedure TestLibrary_Export_Index_Fail;
Procedure TestLibrary_ExportVar;
Procedure TestLibrary_ExportUnitFunc;
// ToDo: test delayed specialization init
// ToDo: shortrefoptimization
end;
function LinesToStr(Args: array of const): string;
@ -7247,6 +7245,7 @@ end;
procedure TTestModule.TestSet_AnonymousEnumTypeChar;
begin
exit;
StartProgram(false);
Add([
'type',
@ -8649,7 +8648,7 @@ begin
' s:=concat(s,''a'',s);',
' s:=#250#269;',
' i:=low(s)+high(a);',
//' s:=#$2F804;',
' s:=''a/b'';',
// ToDo: \uD87E\uDC04 -> \u{2F804}
'']);
ConvertProgram;
@ -8684,6 +8683,7 @@ begin
'$mod.s = $mod.s.concat("a", $mod.s);',
'$mod.s = "úč";',
'$mod.i = 1 + $mod.a.length;',
'$mod.s = "a/b";',
'']));
end;