Original bug ID: 3046
Reporter: administrator
Status: closed
Resolution: not a bug
Priority: normal
Severity: minor
Category: ~DO NOT USE (was: OCaml general)

Bug description

Full_Name: Martin Jambon
Version: 3.08.0
OS: Linux Debian Woody i386
Submission from: 218.81.128.189 (218.81.128.189)

This program does not raise Stack_overflow or any exception when linked against
threads.cmxa, but instead starts an infinite loop that does nothing except using
the CPU (88% system, 12% user).

When compiled to native code without threads.cmxa or to bytecode, some Stack
Overflow error terminates the process, which is the expected behavior.

(* ocamlopt -o tst -thread threads.cmxa test.ml; ./tst > log *)

let rec loop () =
try print_string "x"; print_newline (); loop ()
with Exit -> ()

let _ =
loop ()