make_rtrec (RegArray nm tt_attrib _ _ _ dsc (TypeDefn decls) p) dev order = 
    [ RegFormat { tt_name = TN.fromParts dev nm,
                  tt_size = (calc_tt_size decls),
                  fields = F.make_list dev NOATTR order 0 decls,
                  tt_desc = "Implicit type of " ++ dsc ++ " register array",
                  pos = p } ]
make_rtrec (RegArray nm tt_attrib _ _ _ dsc (TypeDefn decls) p) dev order = 
    [ RegFormat { tt_name = TN.fromParts dev nm,
                  tt_size = (calc_tt_size decls),
                  fields = F.make_list dev NOATTR order 0 decls,
                  tt_desc = "Implicit type of " ++ dsc ++ " register array",
                  pos = p } ]
make_rtrec (RegArray nm tt_attrib _ _ _ dsc (TypeDefn decls) p) dev order = 
    [ RegFormat { tt_name = TN.fromParts dev nm,
                  tt_size = (calc_tt_size decls),
                  fields = F.make_list dev NOATTR order 0 decls,
                  tt_desc = "Implicit type of " ++ dsc ++ " register array",
                  pos = p } ]