mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 12:23:24 +01:00
16 lines
187 B
ObjectPascal
16 lines
187 B
ObjectPascal
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.
|