mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 02:19:22 +01:00
2c93687c5a
m68k/cgcpu.pas, tcg68k.g_flags2reg: * don't sign extend the flag value which was stored to the register, but instead do a "AND 1" on it to reduce it to 1 bit; afterall Booleans in Pascal are either 0 or 1 and not 0 or $FF + added test git-svn-id: trunk@25598 -
12 lines
138 B
ObjectPascal
12 lines
138 B
ObjectPascal
program tb0601;
|
|
|
|
var
|
|
i1, i2, i3: LongWord;
|
|
begin
|
|
i1 := 42;
|
|
i2 := 84;
|
|
i3 := LongWord(i1 < i2);
|
|
if i3 <> 1 then
|
|
Halt(1);
|
|
end.
|