瀏覽代碼

* Fix compilation in unicode rtl

Michaël Van Canneyt 1 年之前
父節點
當前提交
9bb1cda8b5
共有 1 個文件被更改,包括 7 次插入3 次删除
  1. 7 3
      packages/wasmedge/src/libwasmedge.pp

+ 7 - 3
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;