Comment author: administrator

Fixed by Jacques (2002-02-07)

Comment author: administrator

The following program crashes with an attempt to reference memory at
"0x00000000". If I remove the call to add_fileoutput, then the
program does not crash.

I'm sorry for the very long delay.
I've now fixed the problem, which was just a stupid asynchrony between
the Unix and Labltk libraries.

Here is a small patch that fixes it, if you can compile ocaml for
windows.
Unfortunately, this doesn't solve the more fundamental problem that
using Tcl channels only works for sockets, and not with pipes... which
I would need for ocamlbrowser.

Jacques Garrigue Kyoto University garrigue at kurims.kyoto-u.ac.jp
JG

Index: cltkFile.c

RCS file: /net/pauillac/caml/repository/csl/otherlibs/labltk/support/cltkFile.c,v
retrieving revision 1.9
retrieving revision 1.11
diff -c -r1.9 -r1.11
*** cltkFile.c 2001/12/07 13:40:09 1.9
--- cltkFile.c 2002/02/07 10:44:37 1.11

*** 106,114 ****

/* Under Win32, we go through the generic channel abstraction */

! /* Map Unix.file_descr values to Tcl channels */

! #define Handle_val(v) (*((HANDLE *)(v)))

static Tcl_Channel tcl_channel(value fd, int flags)
{
--- 106,114 ----

/* Under Win32, we go through the generic channel abstraction */

! #define Handle_val(v) (*((HANDLE *) Data_custom_val(v)))

! /* Map Unix.file_descr values to Tcl channels */

static Tcl_Channel tcl_channel(value fd, int flags)
{