Skip to content

Commit

Permalink
Minor attribute fixes from flambda-backend
Browse files Browse the repository at this point in the history
  • Loading branch information
mshinwell authored and ccasin committed Nov 1, 2022
1 parent 75f402e commit fac5896
Show file tree
Hide file tree
Showing 2 changed files with 4 additions and 1 deletion.
2 changes: 1 addition & 1 deletion lambda/translattribute.ml
Original file line number Diff line number Diff line change
Expand Up @@ -45,7 +45,7 @@ let is_tmc_attribute =
[ ["tail_mod_cons"; "ocaml.tail_mod_cons"], true ]

let is_poll_attribute =
[ ["poll"], true ]
[ ["poll"; "ocaml.poll"], true ]

let find_attribute p attributes =
let inline_attribute = Builtin_attributes.filter_attributes p attributes in
Expand Down
3 changes: 3 additions & 0 deletions parsing/builtin_attributes.ml
Original file line number Diff line number Diff line change
Expand Up @@ -49,6 +49,8 @@ let warn_unused () =
let builtin_attrs =
[ "inline"; "ocaml.inline"
; "inlined"; "ocaml.inlined"
; "specialise"; "ocaml.specialise"
; "specialised"; "ocaml.specialised"
; "tailcall"; "ocaml.tailcall"
; "unrolled"; "ocaml.unrolled"
; "error"; "ocaml.error"
Expand Down Expand Up @@ -79,6 +81,7 @@ let builtin_attrs =
; "include_functor"; "ocaml.include_functor"; "extension.include_functor"
; "noalloc"; "ocaml.noalloc"
; "untagged"; "ocaml.untagged"
; "poll"; "ocaml.poll"
]

let builtin_attrs =
Expand Down

0 comments on commit fac5896

Please sign in to comment.