[Tcl-bugs] [ tcl-Bugs-456892 ] Tcl_AppendStringsToObj -> abort

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

Bugs item #456892, was opened at 2001-08-30 08:37
You can respond by visiting: 
http://sourceforge.net/tracker/?func=detail&atid=110894&aid=456892&group_id=10894

>Category: 44. Bytecode Compiler
Group: 8.4a3
Status: Open
Resolution: None
>Priority: 8
Submitted By: Nobody/Anonymous (nobody)
>Assigned to: miguel sofer (msofer)
Summary: Tcl_AppendStringsToObj -> abort

Initial Comment:
[belinda 6]--> tclsh8.4
% parray tcl_platform
tcl_platform(byteOrder) = bigEndian
tcl_platform(machine)   = sun4u
tcl_platform(os)        = SunOS
tcl_platform(osVersion) = 5.7
tcl_platform(platform)  = unix
tcl_platform(threaded)  = 1
tcl_platform(user)      = chall
% puts $tcl_patchLevel
8.4a3
% proc mt_lslice {l s} {
    set r [list]    
    foreach i $l {
        lappend r [lindex $l $i]
    }   
    return $r
}
mt_lslice [list a b c d e f] [list 1 3 5]
Tcl_AppendStringsToObj called with shared object
Abort (core dumped)

Of course, my proc is wrong and should say:

proc mt_lslice {l s} {
    set r [list]    
    foreach i $s {
        lappend r [lindex $l $i]
    }   
    return $r
}
% mt_lslice [list a b c d e f] [list 1 3 5]
b d f


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

>Comment By: miguel sofer (msofer)
Date: 2001-08-30 08:47

Message:
Logged In: YES 
user_id=148712

This is a bug in the new bytecompiled implementation of
lappend; the crash does not occur in tcl8.3, nor when you

eval lappend r [lindex $l $i] 

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

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