소스 검색

* Fix FULLVERSION check for randomfrom

git-svn-id: trunk@36718 -
michael 8 년 전
부모
커밋
bb79ab787e
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  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)];