* patch for ^\ by Dmitry, bug #16341

git-svn-id: trunk@15727 -

packages/fcl-passrc/src/pparser.pp

@@ -756,6 +756,15 @@ begin
     tkfalse, tktrue:    x:=TBoolConstExpr.Create(pekBoolConst, CurToken=tktrue);
     tknil:              x:=TNilExpr.Create;
     tkSquaredBraceOpen: x:=ParseParams(pekSet);
+    tkCaret: begin
+      // ^A..^_ characters. See #16341
+      NextToken;
+      if not (length(CurTokenText)=1) or not (CurTokenText[1] in ['A'..'_']) then begin
+        UngetToken;
+        ParseExc(SParserExpectedIdentifier);
+      end;
+      x:=TPrimitiveExpr.Create(pekString, '^'+CurTokenText);
+    end;
   else
     ParseExc(SParserExpectedIdentifier);
   end;

packages/fcl-passrc/src/pscanner.pp

@@ -59,6 +59,7 @@ type
     tkSquaredBraceOpen,      // '['
     tkSquaredBraceClose,     // ']'
     tkCaret,                 // '^'
+    tkBackslash,             // '\'
     // Two-character tokens
     tkDotDot,                // '..'
     tkAssign,                // ':='
@@ -260,6 +261,7 @@ const
     '[',
     ']',
     '^',
+    '\',
     '..',
     ':=',
     '<>',
@@ -916,6 +918,11 @@ begin
         Inc(TokenStr);
         Result := tkCaret;
       end;
+    '\':
+      begin
+        Inc(TokenStr);
+        Result := tkBackslash;
+      end;
     '{':        // Multi-line comment
       begin
         Inc(TokenStr);