浏览代码

* generating a linear sub list makes no sense for RiscV

florian 1 天之前
父节点
当前提交
f71871e60d
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      compiler/riscv/nrvset.pas

+ 8 - 0
compiler/riscv/nrvset.pas

@@ -34,6 +34,7 @@ interface
            procedure optimizevalues(var max_linear_list : int64; var max_dist : qword);override;
            procedure optimizevalues(var max_linear_list : int64; var max_dist : qword);override;
            function  has_jumptable : boolean;override;
            function  has_jumptable : boolean;override;
            procedure genjumptable(hp : pcaselabel;min_,max_ : int64);override;
            procedure genjumptable(hp : pcaselabel;min_,max_ : int64);override;
+           procedure genlinearlist(hp : pcaselabel);override;
        end;
        end;
 
 
 
 
@@ -149,6 +150,13 @@ implementation
       end;
       end;
 
 
 
 
+    procedure trvcasenode.genlinearlist(hp: pcaselabel);
+      begin
+        { a sub-based list makes no sense for RiscV having no flags }
+        genlinearcmplist(hp);
+      end;
+
+
 begin
 begin
    ccasenode:=trvcasenode;
    ccasenode:=trvcasenode;
 end.
 end.