Browse Source

* Allow compilation with unicode rtl

Michaël Van Canneyt 1 năm trước cách đây
mục cha
commit
e661cde215
1 tập tin đã thay đổi với 4 bổ sung0 xóa
  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
 interface
 
 
 uses
 uses
+  {$IFDEF FPC_DOTTEDUNITS}
+  System.Classes, System.SysUtils;
+  {$ELSE}
   Classes, SysUtils;
   Classes, SysUtils;
+  {$ENDIF}
 
 
 const
 const
   CanvasMsgSize = 4;
   CanvasMsgSize = 4;