paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-28 20:40:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ also add 'rep; db $66; movsw' to the tasm16.pp test

Browse Source 
git-svn-id: trunk@38098 -
This commit is contained in:
nickysn 2018-02-01 20:00:43 +00:00
parent b8710d8fec
commit 50acde9e36
1 changed files with 19 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
tests/test/tasm16.pp
View File

@ -106,6 +106,19 @@ const
expect18: array [0..1] of byte = ( expect18: array [0..1] of byte = (
$65,$AC // seggs lodsb $65,$AC // seggs lodsb
); );
{$ifdef cpui8086}
expect19: array [0..2] of byte = (
$F3, // rep
$66, // db $66
$A5 // movsw
);
{$else}
expect19: array [0..3] of byte = (
$F3, // rep
$66, // db $66
$66,$A5 // movsw
);
{$endif}
{$asmmode intel} {$asmmode intel}
@ -181,6 +194,10 @@ procedure test18; assembler; nostackframe;
asm asm
seggs lodsb seggs lodsb
end; end;
procedure test19; assembler; nostackframe;
asm
rep; db $66; movsw
end;
procedure Error; procedure Error;
begin begin
@ -246,5 +263,7 @@ begin
Error; Error;
if not CompareCode(CodePointer(@test18), @expect18, SizeOf(expect18)) then if not CompareCode(CodePointer(@test18), @expect18, SizeOf(expect18)) then
Error; Error;
if not CompareCode(CodePointer(@test19), @expect19, SizeOf(expect19)) then
Error;
Writeln('Ok!') Writeln('Ok!')
end. end.