Browse Source

* Fix compilation after Delpĥi mode strings were added

Michaël Van Canneyt 1 year ago
parent
commit
363bc3e019
1 changed files with 3 additions and 1 deletions
  1. 3 1
      packages/pastojs/src/pas2jsfiler.pp

+ 3 - 1
packages/pastojs/src/pas2jsfiler.pp

@@ -226,7 +226,8 @@ const
     'AnonymousFunctions',
     'AnonymousFunctions',
     'ExternalClass',
     'ExternalClass',
     'OmitRTTI',
     'OmitRTTI',
-    'MultilineStrings'
+    'MultilineStrings',
+    'DelphiMultilineStrings'
     ); // Dont forget to update ModeSwitchToInt !
     ); // Dont forget to update ModeSwitchToInt !
 
 
   PCUDefaultBoolSwitches: TBoolSwitches = [
   PCUDefaultBoolSwitches: TBoolSwitches = [
@@ -1678,6 +1679,7 @@ begin
     msMultiHelpers: Result:=49;
     msMultiHelpers: Result:=49;
     msImplicitFunctionSpec: Result:=50;
     msImplicitFunctionSpec: Result:=50;
     msMultiLineStrings: Result:=51;
     msMultiLineStrings: Result:=51;
+    msDelphiMultiLineStrings: Result:=51;
   end;
   end;
 end;
 end;