From 9bb1cda8b5ccbb80e3d1a65cf6d490bb7bef7939 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Micha=C3=ABl=20Van=20Canneyt?= <michael@freepascal.org>
Date: Wed, 25 Oct 2023 17:26:39 +0200
Subject: [PATCH] * Fix compilation in unicode rtl

---
 packages/wasmedge/src/libwasmedge.pp | 10 +++++++---
 1 file changed, 7 insertions(+), 3 deletions(-)

diff --git a/packages/wasmedge/src/libwasmedge.pp b/packages/wasmedge/src/libwasmedge.pp
index b29ec4cd87..2ed18708c8 100644
--- a/packages/wasmedge/src/libwasmedge.pp
+++ b/packages/wasmedge/src/libwasmedge.pp
@@ -613,9 +613,13 @@ WasmEdge_ExecutorExperimentalRegisterPostHostFunction : procedure(Cxt:PWasmEdge_
 
 implementation
 
-  uses
-    SysUtils, dynlibs;
-
+{$IFDEF FPC_DOTTEDUNITS}
+uses
+  System.SysUtils, System.DynLibs;
+{$ELSE}
+uses
+   SysUtils, dynlibs;
+{$ENDIF}
   var
     hlib : tlibhandle;