[Tcl-bugs] [ tcl-Bugs-1904907 ] get segfault when using a channel created with [chan create]

[SourceForge.net <no...@so...>]

Bugs item #1904907, was opened at 2008-02-29 11:16
Message generated for change (Tracker Item Submitted) made by Item Submitter
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1904907&group_id=10894

Please note that this message will contain a full copy of the comment thread,
including the initial issue submission, for this request,
not just the latest update.
Category: 24. Channel Commands
Group: current: 8.5.1
Status: Open
Resolution: None
Priority: 5
Private: No
Submitted By: Brett Schwarz (schwarzkopf)
Assigned to: Andreas Kupries (andreas_kupries)
Summary: get segfault when using a channel created with [chan create]

Initial Comment:
% parray tcl_platform
tcl_platform(byteOrder)   = littleEndian
tcl_platform(machine)     = x86_64
tcl_platform(os)          = Linux
tcl_platform(osVersion)   = 2.6.22-14-generic
tcl_platform(platform)    = unix
tcl_platform(pointerSize) = 8
tcl_platform(threaded)    = 1
tcl_platform(user)        = bschwarz
tcl_platform(wordSize)    = 8

I have a file with this in it, and it produces a segfault:

  et fid [chan create {r w} ::vchan]

  chan puts $fid "HELLO THERE"
  set data [read $fid]

If I add the following at the end, it does not segfault (note that I need a catch, because there is another problem when I [chan close]):

  catch {chan close $fid}
  
I don't see the problem on "normal" channels (i.e. opening a file on the filesystem with [open])

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=110894&aid=1904907&group_id=10894