mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
f2c0190aa3
x86 intel assembler reader (patch by Sergei Gorelkin, mantis #6851) git-svn-id: trunk@14402 -
41 lines
914 B
ObjectPascal
41 lines
914 B
ObjectPascal
{ %norun }
|
|
{ %cpu=i386 }
|
|
{ %opt=-Cg- }
|
|
|
|
{$mode delphi}
|
|
|
|
program test;
|
|
|
|
const
|
|
|
|
BitMaskTable: Array[0..31] of LongWord =
|
|
($00000001, $00000002, $00000004, $00000008,
|
|
$00000010, $00000020, $00000040, $00000080,
|
|
$00000100, $00000200, $00000400, $00000800,
|
|
$00001000, $00002000, $00004000, $00008000,
|
|
$00010000, $00020000, $00040000, $00080000,
|
|
$00100000, $00200000, $00400000, $00800000,
|
|
$01000000, $02000000, $04000000, $08000000,
|
|
$10000000, $20000000, $40000000, $80000000);
|
|
|
|
BitsPerByte = 8;
|
|
BitsPerWord = 16;
|
|
BitsPerLongWord = 32;
|
|
BytesPerCardinal = Sizeof(Cardinal);
|
|
BitsPerCardinal = BytesPerCardinal * 8;
|
|
|
|
|
|
function SetBit(const Value, BitIndex: LongWord): LongWord;
|
|
asm
|
|
{$IFOPT R+}
|
|
CMP BitIndex, BitsPerLongWord
|
|
JAE @Fin
|
|
{$ENDIF}
|
|
OR EAX, DWORD PTR [BitIndex * 4 + BitMaskTable]
|
|
@Fin:
|
|
end;
|
|
|
|
begin
|
|
|
|
end.
|