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

improved tb0625. boolean casting should disregard the upper bits

Browse Source 
git-svn-id: trunk@35107 -
This commit is contained in:
Károly Balogh 2016-12-11 13:26:04 +00:00
parent 288a39d86e
commit 442cbed9ad
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/tbs/tb0625.pp
View File

@ -20,4 +20,8 @@ begin
b := Boolean(i); b := Boolean(i);
if not b then if not b then
Halt(4); Halt(4);
i := $ffffffffffffff00;
b := Boolean(i);
if b then
Halt(5);
end. end.