The unpac monorepo manager self-hosting as a monorepo using unpac
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
+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