After doing an upgrade to 5.7 mar 8th snapshot, a backwards memcpy
has surfaced in tcl or expect.
I have been trying to track it down, built tcl 8.5 with --enable-symbols,
and managed to at least get the below backtrace, but so far have been
unable to figure out how to get the expect port to retain symbols.
i wouldn't call this a complete report but hoping there is more here than
i can see, earlier telnet issue i reported already took a lot of head
scratching, starting to feel fried!
$ gdb expect expect.core
GNU gdb 6.3
Copyright 2004 Free Software Foundation, Inc.
GDB is free software, covered by the GNU General Public License, and you are
welcome to change it and/or distribute copies of it under certain conditions.
Type "show copying" to see the conditions.
There is absolutely no warranty for GDB. Type "show warranty" for details.
This GDB was configured as "amd64-unknown-openbsd5.7"...
(no debugging symbols found)
Core was generated by `expect'.
Program terminated with signal 6, Aborted.
(no debugging symbols found)
Loaded symbols for /usr/local/bin/expect
Reading symbols from /usr/local/lib/libexpect545.so.0.0...(no debugging symbols
found)...done.
Loaded symbols for /usr/local/lib/libexpect545.so.0.0
Reading symbols from /usr/local/lib/libtcl85.so.1.6...done.
Loaded symbols for /usr/local/lib/libtcl85.so.1.6
Reading symbols from /usr/lib/libm.so.9.0...done.
Loaded symbols for /usr/lib/libm.so.9.0
Reading symbols from /usr/lib/libutil.so.12.1...done.
Loaded symbols for /usr/lib/libutil.so.12.1
Reading symbols from /usr/lib/libc.so.78.1...done.
Loaded symbols for /usr/lib/libc.so.78.1
Reading symbols from /usr/libexec/ld.so...done.
Loaded symbols for /usr/libexec/ld.so
#0 0x00001654e0b1790a in kill () at <stdin>:2
2 <stdin>: No such file or directory.
in <stdin>
(gdb) bt
#0 0x00001654e0b1790a in kill () at <stdin>:2
#1 0x00001654e0b510b9 in abort () at /usr/src/lib/libc/stdlib/abort.c:53
#2 0x00001654e0b261d8 in memcpy (dst0=0xf9b24, src0=0x6, length=0)
at /usr/src/lib/libc/string/memcpy.c:65
#3 0x00001654cbac6bb7 in Exp_InteractObjCmd ()
from /usr/local/lib/libexpect545.so.0.0
#4 0x00001654bbf662cb in TclEvalObjvInternal (interp=0x16544f5c7000, objc=2,
objv=0x16545970ba48,
command=0xffffffffffffffff <Address 0xffffffffffffffff out of bounds>,
length=-1, flags=0)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:3727
#5 0x00001654bbfaf4ad in TclExecuteByteCode (interp=0x16544f5c7000,
codePtr=0x1654b5d66e00)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclExecute.c:2416
#6 0x00001654bbfb5dff in TclCompEvalObj (interp=0x16544f5c7000,
objPtr=0x16551c2a8960, invoker=0x0, word=0)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclExecute.c:1537
#7 0x00001654bbf676bb in TclEvalObjEx (interp=0x16544f5c7000,
objPtr=0x16551c2a8960, flags=0, invoker=0x0, word=0)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:5296
#8 0x00001654cbac28db in expMatchProcess ()
from /usr/local/lib/libexpect545.so.0.0
#9 0x00001654cbac3785 in Exp_ExpectObjCmd ()
---Type <return> to continue, or q <return> to quit---
from /usr/local/lib/libexpect545.so.0.0
#10 0x00001654bbf662cb in TclEvalObjvInternal (interp=0x16544f5c7000, objc=4,
objv=0x16545970b9d0,
command=0xffffffffffffffff <Address 0xffffffffffffffff out of bounds>,
length=-1, flags=0)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:3727
#11 0x00001654bbfaf4ad in TclExecuteByteCode (interp=0x16544f5c7000,
codePtr=0x16545e683000)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclExecute.c:2416
#12 0x00001654bbff044b in TclObjInterpProcCore (interp=0x16544f5c7000,
procNameObj=0x1654966096f0, skip=1,
errorProc=0x1654bbfefe30 <MakeProcError>)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclProc.c:1763
#13 0x00001654bbf662cb in TclEvalObjvInternal (interp=0x16544f5c7000, objc=1,
objv=0x16545970b6e0,
command=0x16544b913264 "interfaces-check\t;# port test\ncommands-run\t\t;# r
un command loop\n\n# EOF\n", length=18, flags=0)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:3727
#14 0x00001654bbf66f35 in TclEvalEx (interp=0x16544f5c7000,
script=0x16544b913000 "# testcore: devices/cisco/type/router-norommon.exp\n#
cisco router logic\n\n# base unit type\nset TYPE router\n\n# include common pro
cedures and variables\nsource ${PATH}/devices/${VENDOR}/type/common.exp\n\n#"...
, numBytes=Variable "numBytes" is not available.
)
---Type <return> to continue, or q <return> to quit---
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:4426
#15 0x00001654bbf672d6 in Tcl_EvalEx (interp=Variable "interp" is not available.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:4083
#16 0x00001654bbfd2fed in Tcl_FSEvalFileEx (interp=0x16544f5c7000,
pathPtr=0x1654966091b0, encodingName=Variable "encodingName" is not availabl
e.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclIOUtil.c:1859
#17 0x00001654bbf7e811 in Tcl_SourceObjCmd (dummy=Variable "dummy" is not availa
ble.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclCmdMZ.c:965
#18 0x00001654bbf662cb in TclEvalObjvInternal (interp=0x16544f5c7000, objc=2,
objv=0x16545970b2d0,
command=0x1654b59d7d44 "source $PATH/devices/$VENDOR/type/$TYPE.exp\n\n# end
of testing\nmsg-newline\nmsg-newline\nmsg \"Testing Complete!\"\nmsg \"You may
now power off the device\"\nmsg-newline\n\n# append device summary\nmsg-system-i
nf"..., length=44, flags=0)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:3727
#19 0x00001654bbf66f35 in TclEvalEx (interp=0x16544f5c7000,
script=0x1654b59d7000 "#!/usr/bin/env expect\n# <testcore> v1.0\n# Copyright
2014-2015 Ryan Freeman <[email protected]>\n# Developed to help K
nowledge Computers Ltd.\n#\n# intent to put BSD license here\n# \n# Synops"...,
numBytes=Variable "numBytes" is not available.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:4426
#20 0x00001654bbf672d6 in Tcl_EvalEx (interp=Variable "interp" is not available.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclBasic.c:4083
---Type <return> to continue, or q <return> to quit---
#21 0x00001654bbfd2fed in Tcl_FSEvalFileEx (interp=0x16544f5c7000,
pathPtr=0x16547c305020, encodingName=Variable "encodingName" is not availabl
e.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclIOUtil.c:1859
#22 0x00001654bbfd315f in Tcl_EvalFile (interp=0x16544f5c7000, fileName=Variable
"fileName" is not available.
)
at /usr/obj/pobj/tcl-8.5.16/tcl8.5.16/unix/../generic/tclIOUtil.c:267
#23 0x00001654cbaca1fb in exp_interpret_rcfiles ()
from /usr/local/lib/libexpect545.so.0.0
#24 0x0000000000000000 in ?? ()
Current language: auto; currently asm
(gdb)
