Echouer si on externe un pointeur C.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@535 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02master
parent
26747162e8
commit
ba61896300
|
@ -136,6 +136,8 @@ static void emit_compact(chan, v)
|
|||
#endif
|
||||
} else
|
||||
output32(chan, CODE_INT32, n);
|
||||
} else if (!Is_atom(v) && !Is_young(v) && !Is_in_heap(v)) {
|
||||
invalid_argument("output_value: abstract value");
|
||||
} else {
|
||||
header_t hd = Hd_val(v);
|
||||
tag_t tag = Tag_hd(hd);
|
||||
|
|
Loading…
Reference in New Issue