From fd91a1cfe4acb4f7fa4367a00354454c7c459d6a Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 6 Jun 2008 15:09:57 +0000
Subject: [PATCH] Limit the values range

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/tests/test_suite/test_support.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/tests/test_suite/test_support.pas b/wst/trunk/tests/test_suite/test_support.pas
index 5a6899104..794d66018 100644
--- a/wst/trunk/tests/test_suite/test_support.pas
+++ b/wst/trunk/tests/test_suite/test_support.pas
@@ -1421,7 +1421,7 @@ begin
       SetLength(a,j);
       if ( j > 0  ) then begin
         for k := 0 to Pred(j) do begin
-          a[k] := Random(High(LongWord)-2);
+          a[k] := Random(High(Word)-2);
         end;
 
         localObj.SetLength(j);
@@ -1453,7 +1453,7 @@ begin
       SetLength(a,j);
       if ( j > 0  ) then begin
         for k := 0 to Pred(j) do begin
-          a[k] := Random(High(LongWord)-1);
+          a[k] := Random(High(Word)-1);
         end;
 
         localObj.SetLength(j);