Jelajahi Sumber

* override the IN node for WebAssembly and avoid generating jump tables for the
IN nodes on that target

git-svn-id: branches/wasm@48176 -

nickysn 4 tahun lalu
induk
melakukan
ec7fbcb271
1 mengubah file dengan 17 tambahan dan 0 penghapusan
  1. 17 0
      compiler/wasm32/nwasmset.pas

+ 17 - 0
compiler/wasm32/nwasmset.pas

@@ -30,6 +30,13 @@ interface
 
     type
 
+      { twasminnode }
+
+      twasminnode = class(tcginnode)
+      protected
+        function checkgenjumps(out setparts: Tsetparts; out numparts: byte; out use_small: boolean): boolean;override;
+      end;
+
       { twasmcasenode }
 
       twasmcasenode = class(tcgcasenode)
@@ -58,6 +65,15 @@ implementation
       symtype,
       pass_2,defutil,verbose,constexp;
 
+{*****************************************************************************
+                                 TWASMINNODE
+*****************************************************************************}
+
+    function twasminnode.checkgenjumps(out setparts: Tsetparts; out numparts: byte; out use_small: boolean): boolean;
+      begin
+        result:=false;
+      end;
+
 {*****************************************************************************
                                 TWASMCASENODE
 *****************************************************************************}
@@ -481,5 +497,6 @@ implementation
       end;
 
 begin
+  cinnode:=twasminnode;
   ccasenode:=twasmcasenode;
 end.