     \ uint lookup-c-type uint32_t typedef
     \ ulonglong lookup-c-type uint64_t typedef
 
+    \ char lookup-c-type s8 typedef
+    \ short lookup-c-type s16 typedef
+    \ int lookup-c-type s32 typedef
+    \ longlong lookup-c-type s64 typedef
+
+    \ uchar lookup-c-type u8 typedef
+    \ ushort lookup-c-type u16 typedef
+    \ uint lookup-c-type u32 typedef
+    \ ulonglong lookup-c-type u64 typedef
+
+    \ float lookup-c-type f32 typedef
+    \ double lookup-c-type f64 typedef
 ] with-compilation-unit
 
 M: char-16-rep rep-component-type drop char ;

    ptrdiff_t intptr_t uintptr_t size_t
    c-string int8_t uint8_t int16_t uint16_t
    int32_t uint32_t int64_t uint64_t ;

CONSTANT: primitive-types
    {


        \ uint lookup-c-type \ uintptr_t typedef
        \ uint lookup-c-type \ size_t typedef

        \ int lookup-c-type \ isize typedef
        \ uint lookup-c-type \ usize typedef
    ] if

    \ uchar lookup-c-type clone
