fix flambda2

ocaml-flambda · Jul 27, 2023 · acc4aa2 · acc4aa2
1 parent fa356e4
commit acc4aa2
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/middle_end/flambda2/terms/flambda_primitive.ml b/middle_end/flambda2/terms/flambda_primitive.ml
@@ -971,7 +971,7 @@ let result_kind_of_unary_primitive p : result_kind =
   | Begin_try_region -> Singleton K.region
   | End_region -> Singleton K.value
   | Obj_dup -> Singleton K.value
-  | Get_header -> Singleton K.naked_immediate
+  | Get_header -> Singleton K.naked_nativeint
 
 let effects_and_coeffects_of_unary_primitive p : Effects_and_coeffects.t =
   match p with