diff options
| author | Basile Starynkevitch <basile.starynkevitch@inria.fr> | 2004-04-17 06:44:26 +0000 |
|---|---|---|
| committer | Basile Starynkevitch <basile.starynkevitch@inria.fr> | 2004-04-17 06:44:26 +0000 |
| commit | 95108d464be353566a38e82f463c780790dfa97e (patch) | |
| tree | 9967ac752dbd48c213cad95a92e64fc2b93ff1d3 | |
| parent | e66365b066692cf67b0d1919acc396663ba146de (diff) | |
caml_static_release_bytecode should fail when NATIVE_CODE
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6231 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | byterun/obj.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/byterun/obj.c b/byterun/obj.c index 21abd9e0c..6f95f952a 100644 --- a/byterun/obj.c +++ b/byterun/obj.c @@ -46,6 +46,8 @@ CAMLprim value caml_static_release_bytecode(value blk, value size) { #ifndef NATIVE_CODE caml_release_bytecode((code_t) blk, (asize_t) Long_val(size)); +#else + caml_failwith("Meta.static_release_bytecode impossible with native code"); #endif return Val_unit; } |