paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-23 13:01:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed seed2 and seed3 to cardinal to prevent overflow

Browse Source
This commit is contained in:
Jonas Maebe 1998-10-07 11:40:08 +00:00
parent 1c35ba2bab
commit 7688b443a8
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
rtl/inc/system.inc
View File

@ -36,8 +36,8 @@ const
OldRandSeed : Longint = 0; OldRandSeed : Longint = 0;
InitialSeed : Boolean = TRUE; InitialSeed : Boolean = TRUE;
Seed1 : Longint = 0; Seed1 : Longint = 0;
Seed2 : Longint = 0; Seed2 : Cardinal = 0;
Seed3 : Longint = 0; Seed3 : Cardinal = 0;
{ For Error Handling.} { For Error Handling.}
DoError : Boolean = FALSE; DoError : Boolean = FALSE;
@ -475,7 +475,10 @@ end;
{ {
$Log$ $Log$
Revision 1.36 1998-10-05 12:32:51 peter Revision 1.37 1998-10-07 11:40:08 jonas
* changed seed2 and seed3 to cardinal to prevent overflow
Revision 1.36 1998/10/05 12:32:51 peter
+ assert() support + assert() support
Revision 1.35 1998/10/02 09:25:11 peter Revision 1.35 1998/10/02 09:25:11 peter