mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 21:59:47 +02:00
20 lines
423 B
ObjectPascal
20 lines
423 B
ObjectPascal
{ Old file: tbf0155.pp }
|
|
{ Asm, Missing string return for asm functions }
|
|
|
|
{ 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; |