From 08949c86bf39b7432bc36bfd13f219aecac21646 Mon Sep 17 00:00:00 2001
From: svenbarth <pascaldragon@googlemail.com>
Date: Sun, 2 Aug 2020 10:24:57 +0000
Subject: [PATCH] + readd Randomize with parameter

git-svn-id: trunk@45985 -
---
 rtl/gba/system.pp | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/rtl/gba/system.pp b/rtl/gba/system.pp
index 3195cb36f7..2656b362ab 100644
--- a/rtl/gba/system.pp
+++ b/rtl/gba/system.pp
@@ -115,6 +115,11 @@ begin
   RandSeed := 63458;
 end;
 
+procedure randomize(value: integer);
+begin
+  RandSeed := value;
+end;
+
 {$ifdef FPC_HAS_FEATURE_COMMANDARGS}
 { number of args }
 function paramcount : longint;