* remove "random(longint): longint" if cardinalmulfixed is defined

rtl/inc/system.inc

@@ -243,11 +243,12 @@ begin
   random := trunc(random()*l);
 end;
 
+{$ifndef cardinalmulfixed}
 function random(l:longint): longint;
 begin
   random := trunc(random()*l);
 end;
-
+{$endif cardinalmulfixed}
 
 Procedure NewSeed;
 begin
@@ -589,7 +590,10 @@ end;
 
 {
   $Log$
-  Revision 1.74  1999-12-01 12:37:13  jonas
+  Revision 1.75  1999-12-12 13:29:34  jonas
+    * remove "random(longint): longint" if cardinalmulfixed is defined
+
+  Revision 1.74  1999/12/01 12:37:13  jonas
     + function random(longint): longint
 
   Revision 1.73  1999/11/20 12:48:09  jonas

rtl/inc/systemh.inc

@@ -180,7 +180,9 @@ Function  Swap (X:Int64):Int64;
 {$endif RTLLITE}
 
 Function  Random(l:cardinal):cardinal;
+{$ifndef cardinalmulfixed}
 Function  Random(l:longint):longint;
+{$endif cardinalmulfixed}
 Function  Random: extended;
 Procedure Randomize;
 
@@ -400,7 +402,10 @@ const
 
 {
   $Log$
-  Revision 1.69  1999-12-01 12:37:13  jonas
+  Revision 1.70  1999-12-12 13:29:34  jonas
+    * remove "random(longint): longint" if cardinalmulfixed is defined
+
+  Revision 1.69  1999/12/01 12:37:13  jonas
     + function random(longint): longint
 
   Revision 1.68  1999/11/25 13:34:57  michael