Pārlūkot izejas kodu

fcl-passrc: fixed compile under pas2js

git-svn-id: trunk@42290 -
Mattias Gaertner 6 gadi atpakaļ
vecāks
revīzija
02b66457f5
1 mainītis faili ar 3 papildinājumiem un 3 dzēšanām
  1. 3 3
      packages/fcl-passrc/src/pparser.pp

+ 3 - 3
packages/fcl-passrc/src/pparser.pp

@@ -620,7 +620,7 @@ end;
 {$IF FPC_FULLVERSION<30301}
 Function SplitCommandLine(S: String) : TStringDynArray;
 
-  Function GetNextWord : RawByteString;
+  Function GetNextWord : String;
 
   Const
     WhiteSpace = [' ',#9,#10,#13];
@@ -629,7 +629,7 @@ Function SplitCommandLine(S: String) : TStringDynArray;
   Var
     Wstart,wend : Integer;
     InLiteral : Boolean;
-    LastLiteral : AnsiChar;
+    LastLiteral : Char;
 
     Procedure AppendToResult;
 
@@ -670,7 +670,7 @@ Function SplitCommandLine(S: String) : TStringDynArray;
   end;
 
 Var
-  W : RawByteString;
+  W : String;
   len : Integer;
 
 begin