mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:28:08 +02:00
62e66d2a56
size must happen without any mangling of the value (mantis #11027) * moved checking for signed-to-unsigned (or vice versa) type conversions in assignments from htypechk to ncnv (where there was already code for similar checks) and added support for bool_to_bool there as well git-svn-id: trunk@10521 -
11 lines
163 B
ObjectPascal
11 lines
163 B
ObjectPascal
var i : char;
|
|
bb: bytebool;
|
|
begin
|
|
boolean(i) := (1=1);
|
|
if not boolean(i) then
|
|
halt(1);
|
|
boolean(bb):=boolean(i);
|
|
if not(bb) then
|
|
halt(2);
|
|
end.
|