Echouer si on externe un pointeur C.

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@535 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 1995-12-15 10:19:01 +00:00
parent 26747162e8
commit ba61896300
1 changed files with 2 additions and 0 deletions

View File

@ -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);