make_rtrec (Constants nm d vs w p) dev devorder = 
  let tn = TN.fromParts dev nm 
      vl = [ make_val tn v | v <- vs ]
  in
   [ ConstType { tt_name = tn,
                 tt_size = case w of 
                   Nothing -> calc_const_size vl
                   Just t -> t,
                 tt_vals = vl,
                 tt_desc = d,
                 tt_width = w,
                 pos = p } ]
make_rtrec (Constants nm d vs w p) dev devorder = 
  let tn = TN.fromParts dev nm 
      vl = [ make_val tn v | v <- vs ]
  in
   [ ConstType { tt_name = tn,
                 tt_size = case w of 
                   Nothing -> calc_const_size vl
                   Just t -> t,
                 tt_vals = vl,
                 tt_desc = d,
                 tt_width = w,
                 pos = p } ]
make_rtrec (Constants nm d vs w p) dev devorder = 
  let tn = TN.fromParts dev nm 
      vl = [ make_val tn v | v <- vs ]
  in
   [ ConstType { tt_name = tn,
                 tt_size = case w of 
                   Nothing -> calc_const_size vl
                   Just t -> t,
                 tt_vals = vl,
                 tt_desc = d,
                 tt_width = w,
                 pos = p } ]