paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 09:09:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* ^m support also after a string

Browse Source
This commit is contained in:
peter 2000-03-13 21:21:57 +00:00
parent 7e1068e39d
commit 9f1695f700
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/scanner.pas
View File

@ -1573,6 +1573,7 @@ implementation
'^' : '^' :
begin begin
readchar; readchar;
c:=upcase(c);
if c<#64 then if c<#64 then
c:=chr(ord(c)+64) c:=chr(ord(c)+64)
else else
@ -1789,7 +1790,10 @@ exit_label:
end. end.
{ {
$Log$ $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 ... * very small change to scanner ...
Revision 1.107 2000/02/29 23:59:47 pierre Revision 1.107 2000/02/29 23:59:47 pierre
@ -1871,4 +1875,4 @@ end.
* directives are allowed in (* *) * directives are allowed in (* *)
* fixed parsing of (* between conditional code * fixed parsing of (* between conditional code
} }