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

rtl/inc/system.inc

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

rtl/inc/systemh.inc

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