mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-21 04:01:35 +02:00
17 lines
322 B
ObjectPascal
17 lines
322 B
ObjectPascal
{ this is not a real bug but rather a feature :
|
|
assembler function are only accepted for
|
|
simple return values
|
|
i.e. either in register or FPU (PM) }
|
|
|
|
{ so for the moment this is rejected code ! }
|
|
|
|
function asmstr:string;assembler;
|
|
asm
|
|
movl __RESULT,%edi
|
|
movl $0x4101,%al
|
|
stosw
|
|
end;
|
|
|
|
begin
|
|
writeln(asmstr);
|
|
end; |