mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-26 12:03:45 +02:00
19 lines
375 B
ObjectPascal
19 lines
375 B
ObjectPascal
{ Two cardinal type bugs }
|
|
var
|
|
c : cardinal;
|
|
l : longint;
|
|
b : byte;
|
|
s : shortint;
|
|
w : word;
|
|
begin
|
|
b:=123;
|
|
w:=s;
|
|
l:=b;
|
|
c:=b; {generates movzbl %eax,%edx instead of movzbl %al,%edx}
|
|
|
|
c:=123;
|
|
writeln(c); {Shows '0' outline right! instead of '123' outlined left}
|
|
c:=$7fffffff;
|
|
writeln(c); {Shows '0' outline right! instead of '123' outlined left}
|
|
end.
|