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

* fix test for i8086

Browse Source 
git-svn-id: trunk@38192 -
This commit is contained in:
florian 2018-02-10 22:19:59 +00:00
parent 09af451c2e
commit 08ebf36d00
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/test/units/system/tmem.pp
View File

@ -1,3 +1,6 @@
{ %OPT=-Sew }
{ the -Sew causes the compilation to fail if the target supports only unsigned numbers as count for move/fillchar }
{ This unit tests the basic routines }
{ which are usually coded in assembler }
{ Mainly used in porting to other processors }
@ -30,8 +33,6 @@ begin
end;
procedure test_fillchar;
var
i: integer;
@ -63,6 +64,8 @@ procedure test_fillchar;
for i := 1 to MAX_TABLE do
test(dst_arraybyte[i], DEFAULT_VALUE);
writeln('Passed!');
{$ifndef CPUI8086}
{ i8086 uses word as the count parameter for fillchar }
{ test negative fillchar count }
write('testing fillchar (negative count)...');
for i := 1 to MAX_TABLE do
@ -71,6 +74,7 @@ procedure test_fillchar;
for i := 1 to MAX_TABLE do
test(dst_arraybyte[i], DEFAULT_VALUE);
writeln('Passed!');
{$endif CPUI8086}
end;
@ -113,10 +117,13 @@ begin
for i:= 1 to MAX_TABLE do
test(dst_arraybyte[i], DEFAULT_VALUE);
writeln('Passed!');
{$ifndef CPUI8086}
{ i8086 uses word as the count parameter for fillchar }
{ negative move count }
write('testing move (negative count)...');
move(src_arraybyte,dst_arraybyte,-12);
writeln('Passed!');
{$endif CPUI8086}
end;