浏览代码

* Allow compilation with unicode rtl

Michaël Van Canneyt 1 年之前
父节点
当前提交
e661cde215
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      src/wasm/fresnel.wasm.shared.pp

+ 4 - 0
src/wasm/fresnel.wasm.shared.pp

@@ -5,7 +5,11 @@ unit fresnel.wasm.shared;
 interface
 
 uses
+  {$IFDEF FPC_DOTTEDUNITS}
+  System.Classes, System.SysUtils;
+  {$ELSE}
   Classes, SysUtils;
+  {$ENDIF}
 
 const
   CanvasMsgSize = 4;