You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
Original bug ID: 3809 Reporter: administrator Status: closed Resolution: fixed Priority: normal Severity: minor Category: ~DO NOT USE (was: OCaml general)
Bug description
Full_Name: Eijiro Sumii
Version: 3.08.4 and CVS
OS: Linux
Submission from: qube3.kb.ecei.tohoku.ac.jp (130.34.188.204)
OCaml 3.08.4 seems to report wrong line numbers in exception histories. (I
asked the same question in caml-list; I interpret the silence as a proof that it
is indeed a bug.:-) The CVS version fails in an even more strange way - can I
assume that some work is underway?
Thanks.
cat main.ml
let f () = ()
let test () =
try
Bar.barFunction (-10)
with e -> raise e
let g y = y + 1
let () =
f ();
let ret = test () in
print_int (ret + 100)
cat bar.ml
let barFunction x =
let y = x + 1 in
Foo.fooFunction y
cat foo.ml
let fooFunction x =
if x > 0 then x - 1
else raise (invalid_arg "Give me a positive!")
ocamlc -g foo.ml bar.ml main.ml -o test
env OCAMLRUNPARAM=b ./test
Fatal error: exception Invalid_argument("Give me a positive!")
Raised at file "pervasives.ml", line 22, character 17
Re-raised at file "foo.ml", line 3, character 45
Called from file "main.ml", line 5, character 24
Re-raised at file "main.ml", line 1, character 11
Called from file "main.ml", line 13, character 1
The text was updated successfully, but these errors were encountered:
Original bug ID: 3809
Reporter: administrator
Status: closed
Resolution: fixed
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)
Bug description
Full_Name: Eijiro Sumii
Version: 3.08.4 and CVS
OS: Linux
Submission from: qube3.kb.ecei.tohoku.ac.jp (130.34.188.204)
OCaml 3.08.4 seems to report wrong line numbers in exception histories. (I
asked the same question in caml-list; I interpret the silence as a proof that it
is indeed a bug.:-) The CVS version fails in an even more strange way - can I
assume that some work is underway?
Thanks.
let test () =
try
Bar.barFunction (-10)
with e -> raise e
let g y = y + 1
let () =
f ();
let ret = test () in
print_int (ret + 100)
The text was updated successfully, but these errors were encountered: