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

+ char constants specified with #.. with more than 3 digits are handled as widechar

Browse Source
This commit is contained in:
florian 2002-07-20 17:35:52 +00:00
parent 4f7b35be5b
commit 64b27c2ca1
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/scanner.pas
View File

@ -2392,7 +2392,7 @@ implementation
valint(asciinr,m,code); valint(asciinr,m,code);
if (asciinr='') or (code<>0) then if (asciinr='') or (code<>0) then
Message(scan_e_illegal_char_const) Message(scan_e_illegal_char_const)
else if (m<0) or (m>255) then else if (m<0) or (m>255) or (length(asciinr)>3) then
begin begin
if (m>=0) and (m<=65535) then if (m>=0) and (m<=65535) then
begin begin
@ -2764,7 +2764,10 @@ exit_label:
end. end.
{ {
$Log$ $Log$
Revision 1.39 2002-05-18 13:34:17 peter Revision 1.40 2002-07-20 17:35:52 florian
+ char constants specified with #.. with more than 3 digits are handled as widechar
Revision 1.39 2002/05/18 13:34:17 peter
* readded missing revisions * readded missing revisions
Revision 1.38 2002/05/16 19:46:44 carl Revision 1.38 2002/05/16 19:46:44 carl