mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-07-31 22:05:57 +02:00
18 lines
288 B
ObjectPascal
18 lines
288 B
ObjectPascal
{ %CPU=i386 }
|
|
{ Source provided for Free Pascal Bug Report 2323 }
|
|
{ Submitted by "marco" on 2003-01-16 }
|
|
{ e-mail: marco@freepascal.org }
|
|
|
|
{$Mode Delphi}
|
|
{$ASMMODE Intel}
|
|
|
|
var
|
|
buf : array[0..255] of char;
|
|
begin
|
|
asm
|
|
lea ebx,buf
|
|
add ebx,'('
|
|
mov al, [ebx - '(']
|
|
end;
|
|
end.
|