* synchronised with trunk till r42049

git-svn-id: https://svn.freepascal.org/svn/fpc/branches/debug_eh@42050 3ad0048d-3df7-0310-abae-a5850022a9f2

6 files changed, 14 insertions, 0 deletions

diff --git a/compiler/riscv32/aoptcpu.pas b/compiler/riscv32/aoptcpu.pas
index eb45ee1b9d..bc1f4be37a 100644
--- a/compiler/riscv32/aoptcpu.pas
+++ b/compiler/riscv32/aoptcpu.pas
@@ -56,6 +56,8 @@ Implementation
             {case taicpu(p).opcode of
             end;}
           end;
+        else
+          ;
       end;
     end;
 
@@ -69,6 +71,8 @@ Implementation
         ait_instruction:
           begin
           end;
+        else
+          ;
       end;
     end;
 
diff --git a/compiler/riscv32/cpubase.pas b/compiler/riscv32/cpubase.pas
index 257580bc80..aaa26c5fe7 100644
--- a/compiler/riscv32/cpubase.pas
+++ b/compiler/riscv32/cpubase.pas
@@ -375,6 +375,8 @@ implementation
         case o of
           A_JAL,A_JALR,A_Bxx:
             is_calljmp:=true;
+          else
+            ;
         end;
       end;
 
diff --git a/compiler/riscv32/cpupara.pas b/compiler/riscv32/cpupara.pas
index 9a6e5dbe8b..f290ddb016 100644
--- a/compiler/riscv32/cpupara.pas
+++ b/compiler/riscv32/cpupara.pas
@@ -214,6 +214,8 @@ unit cpupara;
             result:=not is_smallset(def);
           stringdef :
             result:=tstringdef(def).stringtype in [st_shortstring,st_longstring];
+          else
+            ;
         end;
       end;
 
diff --git a/compiler/riscv32/cpupi.pas b/compiler/riscv32/cpupi.pas
index 138d9ab915..f2b6401e29 100644
--- a/compiler/riscv32/cpupi.pas
+++ b/compiler/riscv32/cpupi.pas
@@ -106,6 +106,8 @@ unit cpupi;
                 if r in regs then
                   inc(floatsavesize,8);
             end;
+          else
+            ;
         end;
         floatsavesize:=align(floatsavesize,max(current_settings.alignment.localalignmin,4));
         result:=Align(tg.direction*tg.lasttemp,max(current_settings.alignment.localalignmin,4))+maxpushedparasize+aint(floatsavesize);
diff --git a/compiler/riscv32/nrv32cnv.pas b/compiler/riscv32/nrv32cnv.pas
index dd56a22d49..eabaa87584 100644
--- a/compiler/riscv32/nrv32cnv.pas
+++ b/compiler/riscv32/nrv32cnv.pas
@@ -141,6 +141,8 @@ implementation
 
             case restype of
               s64real: cg.a_loadfpu_reg_reg(current_asmdata.CurrAsmList, OS_F32, OS_F64, location.register, location.Register);
+              else
+                ;
             end;
           end;
       end;
diff --git a/compiler/riscv32/rarv32gas.pas b/compiler/riscv32/rarv32gas.pas
index c93feb374b..7802e21b38 100644
--- a/compiler/riscv32/rarv32gas.pas
+++ b/compiler/riscv32/rarv32gas.pas
@@ -222,6 +222,8 @@ Unit rarv32gas;
                         end;
                       end;
                   end;
+                else
+                  ;
               end;
               Consume(AS_RPAREN);
               if actasmtoken=AS_AT then