From mboxrd@z Thu Jan  1 00:00:00 1970
Return-Path: <stas.miasnikou@gmail.com>
X-Original-To: caml-list@yquem.inria.fr
Delivered-To: caml-list@yquem.inria.fr
Received: from mail3-relais-sop.national.inria.fr (mail3-relais-sop.national.inria.fr [192.134.164.104])
	by yquem.inria.fr (Postfix) with ESMTP id 5322DBC57
	for <caml-list@yquem.inria.fr>; Wed, 17 Mar 2010 21:27:15 +0100 (CET)
X-IronPort-Anti-Spam-Filtered: true
X-IronPort-Anti-Spam-Result: AsQBALfXoEvRVdvckGdsb2JhbACDC41rigsIFQEBAQEJCQwHEwMfqCA3gWOFKi6ISwEBAwWBJ4JgagQ
X-IronPort-AV: E=Sophos;i="4.51,261,1267398000"; 
   d="scan'208";a="47046957"
Received: from mail-ew0-f220.google.com ([209.85.219.220])
  by mail3-smtp-sop.national.inria.fr with ESMTP; 17 Mar 2010 21:27:15 +0100
Received: by ewy20 with SMTP id 20so30464ewy.1
        for <caml-list@yquem.inria.fr>; Wed, 17 Mar 2010 13:27:14 -0700 (PDT)
DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed;
        d=gmail.com; s=gamma;
        h=domainkey-signature:mime-version:received:date:message-id:subject
         :from:to:content-type;
        bh=/pDk82oVrAjX5RM/VnzfeHmRbzD3bIE7/rYs1vLFLPI=;
        b=vIDVUIUvnbb4Fe7KIJbU7ud4gPfgveAZiNHx7k4fFhpMnQmC71kCjEU0jhaEyz4g7C
         4kpbwJzxjtkBvLsmf7q2toyoTL7P/55Tr5xFo64BRHew6k7xYzcx8IQRGcX2w8/fSvcN
         fM1kIXQEuIN+YLRPWgMzcxqaf5Yn44woKFm0g=
DomainKey-Signature: a=rsa-sha1; c=nofws;
        d=gmail.com; s=gamma;
        h=mime-version:date:message-id:subject:from:to:content-type;
        b=OlpgZNw98+SJDoP8LPF8oyDxoni3Q5CPRWuCkX0RtIeQIaVIn2EUIK5Q/WVyybmF2W
         5x+X1wOi0XBnjyT/SH3SwoTji+G5jqmZmyGTw5AiQDlCrmAVt0KtSD8KgxvmT0gVc/uX
         0KVe6xjU2OPrhx/QLM44g2FSKAXIJex37eVyc=
MIME-Version: 1.0
Received: by 10.213.99.142 with SMTP id u14mr179596ebn.29.1268857634291; Wed, 
	17 Mar 2010 13:27:14 -0700 (PDT)
Date: Wed, 17 Mar 2010 22:27:14 +0200
Message-ID: <36ae71be1003171327h3dfe72f5t74d43ebc88035e3d@mail.gmail.com>
Subject: Buffer.add_channel hangs
From: Stas Miasnikou <stas.miasnikou@gmail.com>
To: caml-list@yquem.inria.fr
Content-Type: text/plain; charset=UTF-8
X-Spam: no; 0.00; buffer:01 ocaml:01 buffer:01 char:01 int:01 int:01 bin:01 bin:01 hangs:01 hangs:01 let:03 let:03 nth:05 max:06 channel:06 

Hi,

OCaml 3.11.1, OpenBSD 4.6, i386.

I am trying to read whole file by doing:

let read_file_bin name =
  let ic = open_in_bin name in
  let b = Buffer.create 1024 in
  (try Buffer.add_channel b ic max_int with _ -> ()); (* <-- HERE *)
  close_in ic;
  Array.init (Buffer.length b) (fun i -> int_of_char (Buffer.nth b i))

but it hangs on the line marked. Am I doing something wrong?

Stas