Browse Source

+ added wasm32 type defines

git-svn-id: branches/wasm@47957 -
nickysn 4 years ago
parent
commit
4c85306f69
1 changed files with 13 additions and 0 deletions
  1. 13 0
      rtl/inc/systemh.inc

+ 13 - 0
rtl/inc/systemh.inc

@@ -388,6 +388,19 @@ Type
   FarPointer = Pointer;
   FarPointer = Pointer;
 {$endif CPUZ80}
 {$endif CPUZ80}
 
 
+{$ifdef CPUWASM32}
+  {$define DEFAULT_DOUBLE}
+
+  {$ifndef FPUNONE}
+    {$define SUPPORT_SINGLE}
+    {$define SUPPORT_DOUBLE}
+
+    ValReal = Double;
+  {$endif}
+
+  FarPointer = Pointer;
+{$endif CPUWASM32}
+
 
 
 { By default enable a simple implementation of Random for 8/16 bit CPUs }
 { By default enable a simple implementation of Random for 8/16 bit CPUs }
 {$if (defined(CPU16) or defined(CPU8)) and not defined(FPC_NO_SIMPLE_RANDOM)}
 {$if (defined(CPU16) or defined(CPU8)) and not defined(FPC_NO_SIMPLE_RANDOM)}