Browse Source

* generating a linear sub list makes no sense for RiscV

florian 1 day ago
parent
commit
f71871e60d
1 changed files with 8 additions and 0 deletions
  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;
            function  has_jumptable : boolean;override;
            procedure genjumptable(hp : pcaselabel;min_,max_ : int64);override;
+           procedure genlinearlist(hp : pcaselabel);override;
        end;
 
 
@@ -149,6 +150,13 @@ implementation
       end;
 
 
+    procedure trvcasenode.genlinearlist(hp: pcaselabel);
+      begin
+        { a sub-based list makes no sense for RiscV having no flags }
+        genlinearcmplist(hp);
+      end;
+
+
 begin
    ccasenode:=trvcasenode;
 end.