|Anonymous | Login | Signup for a new account||2015-09-04 12:30 CEST|
|Main | My View | View Issues | Change Log | Roadmap|
|View Issue Details|
|ID||Project||Category||View Status||Date Submitted||Last Update|
|0001961||OCaml||OCaml general||public||2003-12-04 16:14||2014-05-03 00:00|
|Target Version||Fixed in Version|
|Summary||0001961: Re: [Caml-list] Troubles with marshaled/unmarshaled exception|
|Description||The short answer is: don't marshal exceptions.|
The longer answer is that exception marshaling is nearly as hard as
function/closure marshaling. I'm sure the OCaml implementors can give a
more precise description, but here is my understanding.
1. A program can have a large number of exceptions.
2. Exception names are scoped. The following exceptions
A.Foo and B.Foo are different. The same holds for
compilation units/files that are separately compiled.
module A = struct exception Foo end
module B = struct exception Foo end
Just like normal unions, the exceptions are eventually represented as a
block with a tag and some values, but exception tags are resolved at
This explains why you can't marshal an exception in one process, send it
over a channel, unmarshal it in another process, and expect it to make
any sense at all, because the linker's tag selection is likely to be
different in the two processes.
Why doesn't it work within the same process? This is most likely
because the exception tag is a (pointer to a) normal OCaml value, but
pattern matching on the exception value uses pointer equality for the
tag. When you marshal/unmarshal, you deep-copy the tag, and pointer
equality no longer works (though normal equality works just fine).
There are excellent implementation reasons to use pointer equality on
tags; and faithfulness of marshaling is a low priority.
So, it is likely the marshaler could be changed so that exception
marshaling would work as you might expect, but it would be hard, and not
very worthwhile. Don't expect exception marshaling to work in a
Artem Prisyznuk wrote:
> I found strange behavior of pattern matching of
> marshaled/unmarshaled exception.
> Next code describe problem:
> let e = Failure "test";;
> let e' = Marshal.from_string (Marshal.to_string e ) 0;;
> let print_fun exc =
> match exc with
> Failure _ -> print_endline "Matching OK"
> | exc -> print_endline "Matching Fail";;
> print_fun e;;
> print_fun e';;
> Printf.printf "e = e' is %b\n" (e=e');;
> Matching OK
> Matching Fail
> e = e' is true
> So second call print missing value.
Jason Hickey http://www.cs.caltech.edu/~jyh [^]
Caltech Computer Science Tel: 626-395-6568 FAX: 626-792-4257
|Tags||No tags attached.|
|2005-11-18 10:13||administrator||New Issue|
|2009-09-16 14:45||xclerc||Status||acknowledged => closed|
|2009-09-16 14:45||xclerc||Resolution||open => won't fix|
|2014-05-03 00:00||gasche||Relationship added||has duplicate 0004978|
|Copyright © 2000 - 2011 MantisBT Group|