Forráskód Böngészése

* fixed compilation with 1.0.x

Jonas Maebe 21 éve
szülő
commit
491071539b
1 módosított fájl, 7 hozzáadás és 4 törlés
  1. 7 4
      rtl/inc/system.inc

+ 7 - 4
rtl/inc/system.inc

@@ -459,9 +459,9 @@ end;
 
 function random(l:int64): int64;
 begin
-{$ifndef VER_1_0}
+{$ifndef VER1_0}
   random := int64((qword(cardinal(genrand_MT19937)) or ((qword(cardinal(genrand_MT19937)) shl 32))) and $7fffffffffffffff) mod l;
-{$endif VER_1_0}
+{$endif VER1_0}
 end;
 
 function random: extended;
@@ -883,7 +883,10 @@ end;
 
 {
   $Log$
-  Revision 1.62  2004-08-30 17:36:18  jonas
+  Revision 1.63  2004-08-31 12:23:53  jonas
+    * fixed compilation with 1.0.x
+
+  Revision 1.62  2004/08/30 17:36:18  jonas
     * fixed random(int64)
 
   Revision 1.61  2004/08/29 10:23:12  peter
@@ -1021,4 +1024,4 @@ end;
   Revision 1.25  2002/04/12 17:37:36  carl
   + generic stack checking
 
-}
+}