summaryrefslogtreecommitdiff
path: root/fpcsrc/tests/tbs/tb0194.pp
blob: 370547d266d48ffbb995d6ec9feb766cb9fef289 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
{ %CPU=i386 }
{ %OPT=-Cg- }
{ Old file: tbs0228.pp }
{ Asm, wrong warning for size                          OK 0.99.11 (PFV) }

PROGRAM Buggy;

{$ASMMODE ATT}

PROCEDURE XX;  ASSEMBLER;
TYPE
  TabType=ARRAY[0..3] OF BYTE;
CONST
  TabCent   : TabType = (0,6,4,2);
ASM
    movzbl TabCent(,%eax),%ebx
END;

BEGIN
END.