mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 12:38:29 +02:00
32 lines
536 B
ObjectPascal
32 lines
536 B
ObjectPascal
{ %OPT=-O3 }
|
|
|
|
{ Test triggers "mov $0,%reg" being inserted on the wrong side of a SETcc instruction }
|
|
program tw39922.pp;
|
|
|
|
{$mode objfpc}
|
|
|
|
uses sysutils;
|
|
|
|
function isAlpha(c : Byte): Integer;
|
|
begin
|
|
if ((AnsiChar(c) >= 'A') and (AnsiChar(c) <= 'Z')) or
|
|
((AnsiChar(c) >= 'a') and (AnsiChar(c) <= 'z'))
|
|
then
|
|
Result := 1
|
|
else
|
|
Result := 0;
|
|
end;
|
|
|
|
begin
|
|
if (isAlpha(Byte('u')) = 0) then
|
|
Halt(1);
|
|
|
|
if (isAlpha(Byte('A')) = 0) then
|
|
Halt(2);
|
|
|
|
if (isAlpha(Byte('2')) = 1) then
|
|
Halt(3);
|
|
|
|
WriteLn('ok');
|
|
end.
|