From mboxrd@z Thu Jan  1 00:00:00 1970
Received: (from majordomo@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id MAA04062; Fri, 22 Mar 2002 12:56:45 +0100 (MET)
X-Authentication-Warning: pauillac.inria.fr: majordomo set sender to owner-caml-list@pauillac.inria.fr using -f
Received: (from weis@localhost) by pauillac.inria.fr (8.7.6/8.7.3) id MAA02774 for caml-list@pauillac.inria.fr; Fri, 22 Mar 2002 12:56:44 +0100 (MET)
Received: from nez-perce.inria.fr (nez-perce.inria.fr [192.93.2.78]) by pauillac.inria.fr (8.7.6/8.7.3) with ESMTP id MAA03649 for <caml-list@pauillac.inria.fr>; Fri, 22 Mar 2002 12:34:50 +0100 (MET)
Received: from orinoco.alve.com ([209.99.70.2])
	by nez-perce.inria.fr (8.11.1/8.11.1) with ESMTP id g2MBYmv08810
	for <caml-list@inria.fr>; Fri, 22 Mar 2002 12:34:49 +0100 (MET)
Received: from localhost (mattwb@valery.alve.com [209.99.70.15])
	by orinoco.alve.com (8.11.6/8.11.6) with ESMTP id g2MBgEL30705;
	Fri, 22 Mar 2002 05:42:14 -0600
To: wester@ilt.fhg.de
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] custom toplevel with threads
In-Reply-To: <3C9B0BD4.5940.25DC91@localhost>
References: <3C9B0BD4.5940.25DC91@localhost>
X-Mailer: Mew version 1.94.2 on XEmacs 21.1 (Capitol Reef)
Mime-Version: 1.0
Content-Type: Text/Plain; charset=us-ascii
Content-Transfer-Encoding: 7bit
Message-Id: <20020322053507N.mattwb@valery.alve.com>
Date: Fri, 22 Mar 2002 05:35:07 -0600
From: mattwb@valery.alve.com
X-Dispatcher: imput version 991025(IM133)
Sender: owner-caml-list@pauillac.inria.fr
Precedence: bulk

From: "Rolf Wester" <wester@ilt.fhg.de>
Subject: [Caml-list] custom toplevel with threads
Date: Fri, 22 Mar 2002 10:47:48 +0200
Message-ID: <3C9B0BD4.5940.25DC91@localhost>
>
> Hi,
> 
> I made a custom toplevel with:
> 
> ocamlmktop -custom -thread -o ocaml_all.exe  -I +labltk unix.cma nums.cma str.cma 
> bigarray.cma labltk.cma -I +threads threads.cma
> 
> When running this toplevel it starts normally but as soon as I hit <return> the
> toplevel excits without any message. When I make the toplevel omitting
> threads.cma the toplevel works.
> 
> I'm using the native Windows OCaml3.04 distribution. Did I do anything wrong?
> I would be appreciative for help.
> 
> Thanks in advance
> 
> Rolf Wester
> -------------------------------------
> Rolf Wester
> rolf.wester@ilt.fraunhofer.de
> -------------------

The problem is on line 54 of the file
ocaml-3.04/otherlibs/systhreads/thread_win32.ml.  
Change

    let preempt signal = yield()

to:

    let preempt signal =
      if not (!Sys.interactive && signal=(-11)) then yield()

Then recompile ocaml-3.04
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners