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

* Fix FULLVERSION check for randomfrom

git-svn-id: trunk@36718 -
michael 8 éve
szülő
commit
bb79ab787e
1 módosított fájl, 2 hozzáadás és 2 törlés
  1. 2 2
      rtl/objpas/math.pp

+ 2 - 2
rtl/objpas/math.pp

@@ -613,7 +613,7 @@ function CompareValue ( const A, B : Extended; delta : Extended = 0.0 ) : TValue
 function RandomFrom(const AValues: array of Double): Double; overload;
 function RandomFrom(const AValues: array of Integer): Integer; overload;
 function RandomFrom(const AValues: array of Int64): Int64; overload;
-{$if FPC_FULLVERSION >=301010}
+{$if FPC_FULLVERSION >=30101}
 generic function RandomFrom<T>(const AValues:array of T):T;
 {$endif}
 
@@ -2604,7 +2604,7 @@ begin
   result:=AValues[random(High(AValues)+1)];
 end;
 
-{$if FPC_FULLVERSION >=301010}
+{$if FPC_FULLVERSION >=30101}
 generic function RandomFrom<T>(const AValues:array of T):T;
 begin
   result:=AValues[random(High(AValues)+1)];