paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 18:09:30 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed RandSeed and OldRandSeed to Cardinal to avoid negative random numbers

Browse Source
This commit is contained in:
Jonas Maebe 1998-11-26 23:16:13 +00:00
parent fc52d94323
commit 5271ef0830
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
rtl/inc/system.inc
View File

@ -33,7 +33,7 @@ type
const
{ Random / Randomize constants }
OldRandSeed : Longint = 0;
OldRandSeed : Cardinal = 0;
InitialSeed : Boolean = TRUE;
Seed2 : Cardinal = 0;
Seed3 : Cardinal = 0;
@ -477,7 +477,10 @@ end;
{
$Log$
Revision 1.43 1998-11-17 10:36:07 michael
Revision 1.44 1998-11-26 23:16:15 jonas
* changed RandSeed and OldRandSeed to Cardinal to avoid negative random numbers
Revision 1.43 1998/11/17 10:36:07 michael
+ renamed astrings.pp to astrings.inc
Revision 1.42 1998/11/16 10:21:25 peter

7
rtl/inc/systemh.inc
View File

@ -122,7 +122,7 @@ var
InOutRes : Word;
StackBottom,
LowestStack,
RandSeed : Longint;
RandSeed : Cardinal;
{ Error handlers }
ErrorProc : Pointer;
@ -432,7 +432,10 @@ const
{
$Log$
Revision 1.42 1998-11-24 17:12:43 peter
Revision 1.43 1998-11-26 23:16:13 jonas
* changed RandSeed and OldRandSeed to Cardinal to avoid negative random numbers
Revision 1.42 1998/11/24 17:12:43 peter
* fixed length(char)
- removed obsolete version.inc