The unpac monorepo manager self-hosting as a monorepo using unpac
0
fork

Configure Feed

Select the types of activity you want to include in your feed.

Fix values for statx constant fallbacks

These were previously all defined as 0, rather than their actual
values.

+7 -7
+7 -7
vendor/opam/uring/lib/uring/include/discover.ml
··· 113 113 let new_flags = 114 114 C.C_define.Type.[ 115 115 (* Masks *) 116 - "STATX_MNT_ID", Int; 117 - "STATX_DIOALIGN", Int; 116 + "STATX_MNT_ID", Int, 0x00001000; 117 + "STATX_DIOALIGN", Int, 0x00002000; 118 118 (* File Attributes *) 119 - "STATX_ATTR_VERITY", Int; 120 - "STATX_ATTR_DAX", Int; 119 + "STATX_ATTR_VERITY", Int, 0x00100000; 120 + "STATX_ATTR_DAX", Int, 0x00200000; 121 121 ] 122 122 in 123 123 let new_flag_prelude = 124 124 let def_flag = function 125 - | name, C.C_define.Type.Int -> 126 - Printf.sprintf "#ifndef %s\n#define %s 0\n#endif\n" name name; 125 + | name, C.C_define.Type.Int, v -> 126 + Printf.sprintf "#ifndef %s\n#define %s %d\n#endif\n" name name v; 127 127 | _ -> assert false 128 128 in 129 129 String.concat "" (List.map def_flag new_flags) ··· 163 163 "STATX_ATTR_APPEND", Int; 164 164 "STATX_ATTR_NODUMP", Int ; 165 165 "STATX_ATTR_ENCRYPTED", Int; 166 - ] @ new_flags) 166 + ] @ List.map (fun (n, t, _) -> n, t) new_flags) 167 167 |> List.fold_left (fun (ats, stats, attrs) (v, k) -> match String.split_on_char '_' v, k with 168 168 | "AT" :: name, C.C_define.Value.Int v -> 169 169 let ocaml_name = String.lowercase_ascii (String.concat "_" name) in