Skip to content

Commit 4638799

Browse files
authored
Layout histories: resolve rebase conflicts (#2197)
* get things to build * test changes * remove unused jkind reason * fix formatting
1 parent ec64177 commit 4638799

40 files changed

+1525
-1987
lines changed

ocaml/parsing/builtin_attributes.ml

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -102,15 +102,11 @@ let builtin_attrs =
102102
; "loop"; "ocaml.loop"
103103
; "tail_mod_cons"; "ocaml.tail_mod_cons"
104104
; "unaliasable"; "ocaml.unaliasable"
105-
<<<<<<< HEAD
106105
; "builtin"; "ocaml.builtin"
107106
; "no_effects"; "ocaml.no_effects"
108107
; "no_coeffects"; "ocaml.no_coeffects"
109-
; "only_generative_effects"; "ocaml.only_generative_effects";
110-
||||||| parent of 114ab8b0 (Enable layout histories (#1823))
111-
=======
108+
; "only_generative_effects"; "ocaml.only_generative_effects"
112109
; "error_message"; "ocaml.error_message"
113-
>>>>>>> 114ab8b0 (Enable layout histories (#1823))
114110
]
115111

116112
(* nroberts: When we upstream the builtin-attribute whitelisting, we shouldn't

ocaml/parsing/builtin_attributes.mli

Lines changed: 0 additions & 14 deletions
Original file line numberDiff line numberDiff line change
@@ -192,7 +192,6 @@ val has_once : Parsetree.attributes -> (bool, unit) result
192192
[unique_], and [once_] mode annotation attributes from let-bindings to both
193193
the let-bound expression and its pattern.
194194
*)
195-
<<<<<<< HEAD
196195
val mode_annotation_attributes_filter : Attributes_filter.t
197196

198197
(* CR layouts v1.5: Remove everything except for [Immediate64] and [Immediate]
@@ -209,23 +208,10 @@ val jkind_attribute_of_string : string -> jkind_attribute option
209208
as the attribute mechanism predates layouts.
210209
*)
211210
val jkind : Parsetree.attributes -> jkind_attribute Location.loc option
212-
||||||| parent of 114ab8b0 (Enable layout histories (#1823))
213-
(* CR layouts: we should eventually be able to delete ~legacy_immediate (after we
214-
turn on layouts by default). *)
215-
val jkind : legacy_immediate:bool -> Parsetree.attributes ->
216-
(Jane_asttypes.jkind_annotation option,
217-
Jane_asttypes.jkind_annotation) result
218-
=======
219-
(* CR layouts: we should eventually be able to delete ~legacy_immediate (after we
220-
turn on layouts by default). *)
221-
val jkind : legacy_immediate:bool -> Parsetree.attributes ->
222-
(Jane_asttypes.jkind_annotation option,
223-
Jane_asttypes.jkind_annotation) result
224211

225212
(** Finds the first "error_message" attribute, marks it as used, and returns its
226213
string payload. Returns [None] if no such attribute is present.
227214
228215
There should be at most one "error_message" attribute, additional ones are sliently
229216
ignored. **)
230217
val error_message_attr : Parsetree.attributes -> string option
231-
>>>>>>> 114ab8b0 (Enable layout histories (#1823))

ocaml/testsuite/tests/typing-immediate/immediate.ml

Lines changed: 1 addition & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -177,10 +177,8 @@ Line 2, characters 2-38:
177177
Error: The layout of type t is value, because
178178
it's a boxed record type.
179179
But the layout of type t must be a sublayout of immediate, because
180-
of the annotation on the declaration of the type t/2.
180+
of the annotation on the declaration of the type t.
181181
|}];;
182-
(* CR layouts v2.9: Investigate why the "/2" is here and check if it's only limited
183-
to expect tests. *)
184182

185183
(* Not guaranteed that t is immediate, so this is an invalid declaration *)
186184
module C = struct

0 commit comments

Comments
 (0)