let builtin_to_typespec t =
List.map (fun x -> TypeSpec (PtypespecBuiltin x))
(match t with
| Tlongdouble -> [Long; Double]
| Tdouble -> [Double]
| Tfloat -> [Float]
| Tlonglong -> [Long; Long]
| Tulonglong -> [Unsigned; Long; Long]
| Tlong -> [Long]
| Tulong -> [Unsigned; Long]
| Tint -> [Int]
| Tuint -> [Unsigned; Int]
| Tshort -> [Short]
| Tushort -> [Unsigned; Short]
| Tchar -> [Char]
| Tuchar -> [Unsigned; Char]
| Tschar -> [Signed; Char])