* Fix compilation in pas2js

packages/fcl-passrc/src/pasresolveeval.pas

@@ -4577,7 +4577,11 @@ end;
 function TResExprEvaluator.EvalPrimitiveExprStringMultiLine(Expr: TPrimitiveExpr
   ): TResEvalValue;
 begin
+  {$IFDEF PAS2JS}
+  Result:=TResEvalUTF16.CreateValue(Expr.Value);
+  {$ELSE}
   Result:=TResEvalUTF16.CreateValue(GetUnicodeStr(Expr.Value,Expr));
+  {$ENDIF}
 end;
 
 function TResExprEvaluator.CreateResEvalInt(UInt: TMaxPrecUInt): TResEvalValue;

packages/fcl-passrc/src/pscanner.pp

@@ -4293,7 +4293,9 @@ begin
     end;
 
   // build final string
+  {$IFNDEF PAS2JS}
   SetLength(FCurTokenString,Cnt);
+  {$ENDIF}
   Cnt:=0;
   For I:=0 to CurLineCount-1 do
     begin
@@ -4301,14 +4303,22 @@ begin
     l:=length(s);
     if l>0 then
       begin
+      {$IFDEF PAS2JS}
+      FCurTokenString:=FCurTokenString+S;
+      {$ELSE}
       System.Move(s[1],FCurTokenString[Cnt+1],l);
       inc(Cnt,l);
+      {$ENDIF}
       end;
     if I<CurLineCount-1 then
       begin
+      {$IFDEF PAS2JS}
+      FCurTokenString:=FCurTokenString+CurLF;
+      {$ELSE}
       l:=length(CurLF);
       System.Move(CurLF[1],FCurTokenString[Cnt+1],l);
       inc(Cnt,l);
+      {$ENDIF}
       end;
     end;
   Result:=tkStringMultiLine;