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

* make asciinr string long enough for binary char constants as pointed out by Matti Kronman, resolves #20821

Browse Source 
git-svn-id: trunk@19782 -
This commit is contained in:
florian 2011-12-08 22:04:32 +00:00
parent 76b9d7e766
commit 4a79262728
3 changed files with 16 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -11943,6 +11943,7 @@ tests/webtbs/tw2069.pp svneol=native#text/plain
tests/webtbs/tw20690.pp svneol=native#text/pascal tests/webtbs/tw20690.pp svneol=native#text/pascal
tests/webtbs/tw2072.pp svneol=native#text/plain tests/webtbs/tw2072.pp svneol=native#text/plain
tests/webtbs/tw20744.pp svneol=native#text/plain tests/webtbs/tw20744.pp svneol=native#text/plain
tests/webtbs/tw20821.pp svneol=native#text/pascal
tests/webtbs/tw20836.pp svneol=native#text/pascal tests/webtbs/tw20836.pp svneol=native#text/pascal
tests/webtbs/tw2109.pp svneol=native#text/plain tests/webtbs/tw2109.pp svneol=native#text/plain
tests/webtbs/tw2110.pp svneol=native#text/plain tests/webtbs/tw2110.pp svneol=native#text/plain

2
compiler/scanner.pas
View File

@ -3711,7 +3711,7 @@ In case not, the value returned can be arbitrary.
w : word; w : word;
m : longint; m : longint;
mac : tmacro; mac : tmacro;
asciinr : string[6]; asciinr : string[33];
iswidestring : boolean; iswidestring : boolean;
label label
exit_label; exit_label;

14
tests/webtbs/tw20821.pp Normal file
View File

@ -0,0 +1,14 @@
program bug;
var
b : byte;
begin
b:=170;
if b<>Byte(#%10101010) then
halt(1);
if b<>Byte(%10101010) then
halt(1);
if b<>Byte(%10101010) then
halt(1);
WriteLn('Ok');
end.