From 9f1695f70033ced1eefd2250ad3a3f5151d8bd3c Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Mon, 13 Mar 2000 21:21:57 +0000
Subject: [PATCH] * ^m support also after a string
---
compiler/scanner.pas | 8 ++++++--
1 file changed, 6 insertions(+), 2 deletions(-)
diff --git a/compiler/scanner.pas b/compiler/scanner.pas
index ada90a8d76..d2bbe53d98 100644
--- a/compiler/scanner.pas
+++ b/compiler/scanner.pas
@@ -1573,6 +1573,7 @@ implementation
'^' :
begin
readchar;
+ c:=upcase(c);
if c<#64 then
c:=chr(ord(c)+64)
else
@@ -1789,7 +1790,10 @@ exit_label:
end.
{
$Log$
- Revision 1.108 2000-03-12 17:53:16 florian
+ Revision 1.109 2000-03-13 21:21:57 peter
+ * ^m support also after a string
+
+ Revision 1.108 2000/03/12 17:53:16 florian
* very small change to scanner ...
Revision 1.107 2000/02/29 23:59:47 pierre
@@ -1871,4 +1875,4 @@ end.
* directives are allowed in (* *)
* fixed parsing of (* between conditional code
-}
\ No newline at end of file
+}