* fix test for i8086

git-svn-id: trunk@38192 -

tests/test/units/system/tmem.pp

@@ -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;