mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 22:39:31 +02:00
29 lines
436 B
ObjectPascal
29 lines
436 B
ObjectPascal
{ %skiptarget=android }
|
|
{ %cpu=i386 }
|
|
{ %OPT=-Cg- }
|
|
|
|
{$APPTYPE CONSOLE}
|
|
|
|
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
function Expression1: Integer;
|
|
asm
|
|
mov eax, 4 * 3 - 2 + (-1) / 2
|
|
end;
|
|
|
|
function Expression2: Integer;
|
|
asm
|
|
mov eax, NOT 4 OR 3 AND 2 XOR 1 MOD 6 SHL 4 SHR 2
|
|
end;
|
|
|
|
|
|
begin
|
|
WriteLn('Expression1: ', Expression1);
|
|
WriteLn('Expression2: ', Expression2);
|
|
if (Expression1<>10) or (Expression2<>-1) then
|
|
halt(1);
|
|
end.
|
|
|