From 6000528375121062da10d11e6486832964da7f43 Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Thu, 16 Apr 1998 12:14:58 +0000
Subject: [PATCH]   * quick hack for ^[ in strings

---
 compiler/scanner.pas | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index 290cde8bbe..fcf26ba517 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1940,9 +1940,10 @@ for the last instruction of an include file !}
                              '^' : begin
                                       nextchar;
                                       c:=upcase(c);
-                                      if c in ['A'..'Z'] then
-                                        pattern:=pattern+chr(ord(c)-64)
-                                      else Message(scan_f_illegal_char);
+                                      if ord(c)<64 then
+                                        pattern:=pattern+chr(ord(c)+64)
+                                      else
+                                        pattern:=pattern+chr(ord(c)-64);
                                       nextchar;
                                    end;
                              else break;
@@ -2103,7 +2104,10 @@ for the last instruction of an include file !}
 end.
 {
   $Log$
-  Revision 1.8  1998-04-16 12:07:55  peter
+  Revision 1.9  1998-04-16 12:14:58  peter
+    * quick hack for ^[ in strings
+
+  Revision 1.8  1998/04/16 12:07:55  peter
     * quick $L+ hack
 
   Revision 1.7  1998/04/10 15:39:48  florian