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

Bug description

Full_Name: Patrick Doane
Version: 3.02
OS: Windows NT 4.0
Submission from: 216.30.40.244 (216.30.40.244)

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 have installed TCL/TK 8.3 from ftp://ftp.scriptics.com/pub/tcl/tcl8_3/ and
verified that the tcl83.lib and tk83.lib from that installation are the only
ones that exist in the LIB path.

--

open Unix

let fileinput () = prerr_endline "fileinput"
let fileoutput () = prerr_endline "fileoutput"
;;
let test host port =
let inet_addr = (gethostbyname host).h_addr_list.(0) in
let sock_addr = ADDR_INET (inet_addr, port) in
let fd = socket ~domain:PF_INET ~kind:SOCK_STREAM ~protocol:0 in
connect fd sock_addr;
Fileevent.add_fileinput ~fd ~callback:fileinput;
Fileevent.add_fileoutput ~fd ~callback:fileoutput;
;;
let main () =
let top = Tk.openTk () in
test "localhost" 5555;
Tk.mainLoop ()
;;
Unix.handle_unix_error main ()