make_rtypetable :: DeviceFile -> [Rec]
make_rtypetable (DeviceFile (Device devname bitorder _ _ decls) _) = 
  (concat [ make_rtrec d devname bitorder | d <- decls ])
  ++ 
  [ Primitive (TN.fromParts devname ("uint" ++ (show w))) w NOATTR 
  | w <- [ 8, 16, 32, 64 ] ]
make_rtypetable :: DeviceFile -> [Rec]
make_rtypetable (DeviceFile (Device devname bitorder _ _ decls) _) = 
  (concat [ make_rtrec d devname bitorder | d <- decls ])
  ++ 
  [ Primitive (TN.fromParts devname ("uint" ++ (show w))) w NOATTR 
  | w <- [ 8, 16, 32, 64 ] ]
make_rtypetable (DeviceFile (Device devname bitorder _ _ decls) _) = 
  (concat [ make_rtrec d devname bitorder | d <- decls ])
  ++ 
  [ Primitive (TN.fromParts devname ("uint" ++ (show w))) w NOATTR 
  | w <- [ 8, 16, 32, 64 ] ]