* RiscV32: properly read references with record offsets and base register

  + RiscV32: sanity check in assembler writer

git-svn-id: trunk@48892 -

compiler/riscv/agrvgas.pas

@@ -130,7 +130,9 @@ unit agrvgas;
                  s:=s+gas_regname(base)+','+gas_regname(index)
                else
                  internalerror(2006052502);
-             end;
+             end
+           else
+             Internalerror(2021030602);
 
            case refaddr of
              addr_lo12: s:='%lo'+s;

compiler/riscv32/rarv32gas.pas

@@ -533,7 +533,10 @@ Unit rarv32gas;
                end;
               { Do we have a indexing reference, then parse it also }
               if actasmtoken=AS_LPAREN then
-                BuildReference(oper);
+                begin
+                  oper.InitRef;
+                  BuildReference(oper);
+                end;
             end;
 
           AS_REGISTER: { Register, a variable reference or a constant reference  }