paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 13:59:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Test for result in assembler for delphi mode

Browse Source
This commit is contained in:
peter 2001-08-01 18:00:15 +00:00
parent 367f7a0362
commit f399cef4e1
1 changed files with 25 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
tests/tbs/tb0367.pp Normal file
View File

@ -0,0 +1,25 @@
{$ifdef fpc}
{$mode delphi}
{$asmmode intel}
{$endif}
function LRot(Value:Byte) : Byte; assembler;
asm
MOV CL, Value
MOV Result, CL
MOV AL, 20
end;
var
i : Byte;
begin
i:=LRot(10);
writeln('LRot(10) = ',i,' (should be 10)');
if i<>10 then
begin
writeln('ERROR!');
halt(1);
end;
end.