Skip to content

Commit 3eff2ba

Browse files
Treat zero_alloc only special in OxCaml
1 parent 7758f41 commit 3eff2ba

1 file changed

Lines changed: 2 additions & 0 deletions

File tree

src/loader/doc_attr.ml

Lines changed: 2 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -104,10 +104,12 @@ let zero_alloc_argument (payload : Parsetree.payload) =
104104
let known_attribute attr =
105105
let name, payload, _ = attribute_unpack attr in
106106
match name with
107+
#if defined OXCAML
107108
| "zero_alloc" -> (
108109
match zero_alloc_argument payload with
109110
| Some zalloc_type -> Some (Lang.Value.Zero_alloc zalloc_type)
110111
| None -> None)
112+
#endif
111113
| _ -> None
112114

113115
type payload = string * Location.t

0 commit comments

Comments
 (0)