paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-13 06:29:32 +02: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
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