mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-27 09:53:43 +02:00
555634b755
a_op_reg_reg() (except for NOT, which was already handled correctly)
+ test
git-svn-id: trunk@25840 -
20 lines
208 B
ObjectPascal
20 lines
208 B
ObjectPascal
{$ifdef fpc}
|
|
{$mode delphi}
|
|
{$endif}
|
|
|
|
procedure test;
|
|
var
|
|
w: word;
|
|
arr: array[0..1] of word;
|
|
begin
|
|
arr[1]:=2;
|
|
w:=1;
|
|
dec(w,arr[w]);
|
|
if cardinal(w)<>$ffff then
|
|
halt(1);
|
|
end;
|
|
|
|
begin
|
|
test;
|
|
end.
|