pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Limit the values range

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@469 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2008-06-06 15:09:57 +00:00
parent 5d0a26261e
commit fd91a1cfe4
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/tests/test_suite/test_support.pas
View File

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