paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:59:19 +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 const
{ Random / Randomize constants } { Random / Randomize constants }
OldRandSeed : Longint = 0; OldRandSeed : Cardinal = 0;
InitialSeed : Boolean = TRUE; InitialSeed : Boolean = TRUE;
Seed2 : Cardinal = 0; Seed2 : Cardinal = 0;
Seed3 : Cardinal = 0; Seed3 : Cardinal = 0;
@ -477,7 +477,10 @@ end;
{ {
$Log$ $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 + renamed astrings.pp to astrings.inc
Revision 1.42 1998/11/16 10:21:25 peter Revision 1.42 1998/11/16 10:21:25 peter

7
rtl/inc/systemh.inc
View File

@ -122,7 +122,7 @@ var
InOutRes : Word; InOutRes : Word;
StackBottom, StackBottom,
LowestStack, LowestStack,
RandSeed : Longint; RandSeed : Cardinal;
{ Error handlers } { Error handlers }
ErrorProc : Pointer; ErrorProc : Pointer;
@ -432,7 +432,10 @@ const
{ {
$Log$ $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) * fixed length(char)
- removed obsolete version.inc - removed obsolete version.inc