paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-03 20:50:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* random now returns a value between 0 and max-1 instead of between 0 and max

Browse Source
This commit is contained in:
Jonas Maebe 1998-08-13 16:22:11 +00:00
parent 731d52a810
commit bee0c9d3b4
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -325,7 +325,7 @@ begin
end; end;
Inc(Seed1); Inc(Seed1);
Seed1 := (Seed1 * 998) mod 1000003; Seed1 := (Seed1 * 998) mod 1000003;
Random := Seed1 mod Succ(l); Random := Seed1 mod l;
end; end;
@ -530,7 +530,10 @@ end;
{ {
$Log$ $Log$
Revision 1.26 1998-08-11 00:05:26 peter Revision 1.27 1998-08-13 16:22:11 jonas
* random now returns a value between 0 and max-1 instead of between 0 and max
Revision 1.26 1998/08/11 00:05:26 peter
* $ifdef ver0_99_5 updates * $ifdef ver0_99_5 updates
Revision 1.25 1998/07/30 13:26:18 michael Revision 1.25 1998/07/30 13:26:18 michael