From 19e7ae88511afbf1b1e36eb30180adc89401169d Mon Sep 17 00:00:00 2001 From: peter Date: Mon, 22 Oct 2001 20:25:49 +0000 Subject: [PATCH] * fixed previous commit --- compiler/scanner.pas | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/compiler/scanner.pas b/compiler/scanner.pas index 738e5736d5..e6989861dd 100644 --- a/compiler/scanner.pas +++ b/compiler/scanner.pas @@ -2398,7 +2398,8 @@ implementation end else begin - if length(pattern)=1 then + pattern[0]:=chr(len); + if len=1 then token:=_CCHAR else token:=_CSTRING; @@ -2655,7 +2656,10 @@ exit_label: end. { $Log$ - Revision 1.26 2001-10-22 19:55:44 peter + Revision 1.27 2001-10-22 20:25:49 peter + * fixed previous commit + + Revision 1.26 2001/10/22 19:55:44 peter * give error with string constants longer than 255 chars, this is compatible with kylix