|
(* TEST
|
|
modules = "stub.c"
|
|
* pass
|
|
** bytecode
|
|
** native
|
|
* pass
|
|
flags = "-ccopt -DCAML_NAME_SPACE"
|
|
** bytecode
|
|
** native
|
|
*)
|
|
|
|
external retrieve_young_limit : 'a -> nativeint = "retrieve_young_limit"
|
|
|
|
let bar =
|
|
let foo = Bytes.create 4 in
|
|
retrieve_young_limit foo
|