From c275c3c7f2df5eaaaf1080d5685280062db1d246 Mon Sep 17 00:00:00 2001
From: nickysn <nickysn@gmail.com>
Date: Wed, 23 Jun 2021 22:11:11 +0000
Subject: [PATCH] + implemented Randomize

git-svn-id: trunk@49550 -
---
 rtl/wasi/system.pp | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rtl/wasi/system.pp b/rtl/wasi/system.pp
index bff8ca4e04..438060367a 100644
--- a/rtl/wasi/system.pp
+++ b/rtl/wasi/system.pp
@@ -86,6 +86,7 @@ end;
 
 Procedure Randomize;
 Begin
+  __wasi_random_get(@RandSeed,SizeOf(RandSeed));
 End;
 
 procedure System_exit;