mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-17 02:07:13 +02:00
61522d00a2
usage in case PIC generation is on (some by adding PIC-versions of
the assembler code, most by adding -Cg- to the options to be used).
Note: the Intel assembler reader does not yet support the Delphi
PIC construct, so tests with that (like test/tasmread and test/tcg1)
do not work with -Cg on non-Darwin (Darwin needs a different PIC
construct)
git-svn-id: trunk@9370 -
19 lines
302 B
ObjectPascal
19 lines
302 B
ObjectPascal
{ %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.
|