From 4d8dcfc42e965e3f5688b26f066c80512dfd7ee2 Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Thu, 7 Feb 2019 10:46:41 +0000
Subject: [PATCH]  Fix compilation on targets without Random: add $ifdef
 FPC_HAS_FEATURE_RANDOM

git-svn-id: trunk@41245 -
---
 packages/rtl-extra/src/inc/sortalgs.pp | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/packages/rtl-extra/src/inc/sortalgs.pp b/packages/rtl-extra/src/inc/sortalgs.pp
index 15e4a1b9dc..5dcb3eb656 100644
--- a/packages/rtl-extra/src/inc/sortalgs.pp
+++ b/packages/rtl-extra/src/inc/sortalgs.pp
@@ -102,7 +102,7 @@ const
                        predict). If these risks cannot be tolerated, a different
                        sorting algorithm should be used.
 }
-
+{$ifdef FPC_HAS_FEATURE_RANDOM}
 procedure RandomizedQuickSort_PtrList_NoContext(
                 ItemPtrs: PPointer;
                 ItemCount: SizeUInt;
@@ -131,6 +131,7 @@ const
     ItemListSorter_ContextComparer: @RandomizedQuickSort_ItemList_Context;
     ItemListSorter_CustomItemExchanger_ContextComparer: @RandomizedQuickSort_ItemList_CustomItemExchanger_Context;
   );
+{$endif def FPC_HAS_FEATURE_RANDOM}
 
 implementation
 
@@ -374,6 +375,7 @@ end;
 {*****************************************************************************
                             Randomized QuickSort
 *****************************************************************************}
+{$ifdef FPC_HAS_FEATURE_RANDOM}
 
 function Random_SizeUInt(L: SizeUInt): SizeUInt;
 begin
@@ -671,5 +673,6 @@ begin
     exit;
   QuickSort(0, ItemCount - 1);
 end;
+{$endif def FPC_HAS_FEATURE_RANDOM}
 
 end.