paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-20 18:09:30 +01:00
Code Issues Packages Projects Releases Wiki Activity

* quick hack for ^[ in strings

Browse Source
This commit is contained in:
peter 1998-04-16 12:14:58 +00:00
parent 0701cc9298
commit 6000528375
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/scanner.pas
View File

@ -1940,9 +1940,10 @@ for the last instruction of an include file !}
'^' : begin '^' : begin
nextchar; nextchar;
c:=upcase(c); c:=upcase(c);
if c in ['A'..'Z'] then if ord(c)<64 then
pattern:=pattern+chr(ord(c)-64) pattern:=pattern+chr(ord(c)+64)
else Message(scan_f_illegal_char); else
pattern:=pattern+chr(ord(c)-64);
nextchar; nextchar;
end; end;
else break; else break;
@ -2103,7 +2104,10 @@ for the last instruction of an include file !}
end. end.
{ {
$Log$ $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 * quick $L+ hack
Revision 1.7 1998/04/10 15:39:48 florian Revision 1.7 1998/04/10 15:39:48 florian