From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <edwintorok@gmail.com>
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from mail1-relais-roc.national.inria.fr (mail1-relais-roc.national.inria.fr [192.134.164.82])
	by yquem.inria.fr (Postfix) with ESMTP id 8B560BC57
	for <caml-list@yquem.inria.fr>; Mon, 24 May 2010 14:22:51 +0200 (CEST)
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AkMCAL4M+kvRVaE0mWdsb2JhbACRe4wOCBUBAQEBAQgLCgcRIq1qggGFBC6ITwEBAwWFDgSDPA
X-IronPort-AV: E=Sophos;i="4.53,291,1272837600"; 
   d="scan'208";a="59925735"
Received: from mail-fx0-f52.google.com ([209.85.161.52])
  by mail1-smtp-roc.national.inria.fr with ESMTP; 24 May 2010 14:22:51 +0200
Received: by fxm20 with SMTP id 20so1862469fxm.39
        for <caml-list@yquem.inria.fr>; Mon, 24 May 2010 05:22:51 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=gamma;
        h=domainkey-signature:received:received:received:message-id:date:from
         :user-agent:mime-version:to:subject:references:in-reply-to
         :x-enigmail-version:openpgp:content-type:content-transfer-encoding;
        bh=e+YdwRojcLX1VhWYD9S4O1oMjybZTRt+LF7xsxEc2LI=;
        b=CvI6JLxXEKUEnT6vybDy7wy+CbsXl0D5pGiSDSA3iSrethtGpE7WDfyaX+frqGqhS0
         F2OTJCxHouOULze9IRviFRms/pLxtV81bnxULmmzUyvykTzLB03VkRnApyI5qJ3mgnzc
         gLSB22q/A6rAF/XmduHWL9anNjm/AbZQ874ug=
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=gamma;
        h=message-id:date:from:user-agent:mime-version:to:subject:references
         :in-reply-to:x-enigmail-version:openpgp:content-type
         :content-transfer-encoding;
        b=cMPEGt0pBGeg2KIYIKS5tv8P/YBkjOJ9G1cF9rv/ooqjlxWNBhuObmqT5HbWmJuMRI
         8BBt/II8uWYexRUVxwF9wFJIdELpHWfz2rU1aJ27AN7KmuTP/JkAkQ/qdBuhpWLWlrh7
         TMaDZRYF+aA7QCdu0bq2qKz8Bx2S1WGD/iUiE=
Received: by 10.223.35.12 with SMTP id n12mr4501336fad.35.1274703771007;
        Mon, 24 May 2010 05:22:51 -0700 (PDT)
Received: from debian ([79.114.35.87])
        by mx.google.com with ESMTPS id r12sm19331630fah.8.2010.05.24.05.22.49
        (version=TLSv1/SSLv3 cipher=RC4-MD5);
        Mon, 24 May 2010 05:22:49 -0700 (PDT)
Received: from [127.0.0.1] (localhost [127.0.0.1])
	by debian (Postfix) with ESMTP id 33E8C11EB06
	for <caml-list@yquem.inria.fr>; Mon, 24 May 2010 15:22:48 +0300 (EEST)
Message-ID: <4BFA6F98.4050205@gmail.com>
Date: Mon, 24 May 2010 15:22:48 +0300
From: =?ISO-8859-1?Q?T=F6r=F6k_Edwin?= <edwintorok@gmail.com>
User-Agent: Mozilla/5.0 (X11; U; Linux x86_64; en-US; rv:1.9.1.9) Gecko/20100515 Icedove/3.0.4
MIME-Version: 1.0
To: caml-list@yquem.inria.fr
Subject: Re: [Caml-list] Multi-threaded programs using MinGW x-compiler
References: <2EB36A07AAE8C44BBB1986425E7A22D00FF060AD0D@atp-mbx1.in.nicta.com.au>
In-Reply-To: <2EB36A07AAE8C44BBB1986425E7A22D00FF060AD0D@atp-mbx1.in.nicta.com.au>
X-Enigmail-Version: 1.0.1
OpenPGP: id=5379965D
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: 7bit
X-Spam: no; 0.00; mingw:01 steckler:01 ocaml:01 mingw:01 ocaml:01 debian's:01 printf:01 printf:01 stdout:01 -thread:01 cmxa:01 cmxa:01 camlprog:01 camlprog:01 edwin:98 

On 2010-05-24 04:39, Paul Steckler wrote:
> Has anyone gotten an OCaml multithreaded program to build for Win32 native threads using the
> MinGW ocaml cross-compiler?

I'm not a windows user, but I tried with Debian's mingw32-ocaml package
and wine: it seems to work. I don't know if it uses native threads or
not, but it does import CreateThread.

Here is what I did:
$ cat >x.ml <<EOF
let f_proc1 () = for i=0 to 10 do Printf.printf "(%d)" i; flush stdout done;
                  print_newline() ;;
let t1 = Thread.create f_proc1 () ;;
Thread.join t1 ;;
EOF
$ i586-mingw32msvc-ocamlopt -thread unix.cmxa threads.cmxa  x.ml
$ WINEDEBUG=-all wine camlprog.exe
(0)(1)(2)(3)(4)(5)(6)(7)(8)(9)(10)
$ i586-mingw32msvc-nm camlprog.exe |grep Thread
0042da60 T _CreateThread@24
0042daa0 T _GetCurrentThread@0
0044f3b4 I __imp__CreateThread@24
0044f3e0 I __imp__GetCurrentThread@0
0042ec9c D _camlThread
0042ef98 D _camlThreadUnix
....

Best regards,
--Edwin