mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 19:48:21 +02:00
20 lines
326 B
ObjectPascal
20 lines
326 B
ObjectPascal
{ %skiptarget=android }
|
|
{ %CPU=i386 }
|
|
{ %OPT=-Cg- }
|
|
{ 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.
|