Tcl Source Code

Check-in [316df6cc4e]
Login
Bounty program for improvements to Tcl and certain Tcl packages.
Tcl 2019 Conference, Houston/TX, US, Nov 4-8
Send your abstracts to [email protected]
or submit via the online form by Sep 9.

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:new file: tools/valgrind_suppress. num-callers bumped from 8 to 24. Valgrind now issues no "still reachable" reports for cmdAH.test.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 316df6cc4e678357ce297c0049b712abc3923cf2bc0e72eae218ca764855901c
User & Date: pooryorick 2018-06-19 11:47:08
Context
2018-06-20
08:03
Remove recent auto_path modification in tests/all.tcl and suppress more valgrind reports. check-in: e5831c7c27 user: pooryorick tags: core-8-6-branch
2018-06-19
11:47
new file: tools/valgrind_suppress. num-callers bumped from 8 to 24. Valgrind now issues no "still ... check-in: 316df6cc4e user: pooryorick tags: core-8-6-branch
2018-06-18
15:54
Fix [53cad613d8]: TIP 389 implementation makes Tk tests font-4.12 and font-4.15 fail. One more situa... check-in: c45de6cdb4 user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tests/all.tcl.

10
11
12
13
14
15
16






17

18
19
20
21
22
23
24

25
26
27
28

29
30
31
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package prefer latest
package require Tcl 8.5-
package require tcltest 2.2
namespace import tcltest::*






configure {*}$argv -testdir [file dir [info script]]

if {[singleProcess]} {
    interp debug {} -frame 1
}

set testsdir [file dirname [file dirname [file normalize [info script]/...]]]
lappend auto_path $testsdir {*}[apply {{testsdir args} {
    lmap x $args {

	if {$x eq $testsdir} continue
	lindex $x
    }
}} $testsdir {*}$auto_path]


runAllTests
proc exit args {}






>
>
>
>
>
>
|
>
|
|
|

<
<
<
>


|
<
>



10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28



29
30
31
32

33
34
35
36
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.

package prefer latest
package require Tcl 8.5-
package require tcltest 2.2
namespace import tcltest::*

apply {args {
    global auto_path
    set testsdir [file dirname [file dirname [file normalize [
	info script]/...]]]

    configure {*}$args -testdir $testsdir

    if {[singleProcess]} {
	interp debug {} -frame 1
    }




    set auto_path [lmap x $auto_path[set auto_path {}] {
	if {$x eq $testsdir} continue
	lindex $x
    }]

}} {*}$argv

runAllTests
proc exit args {}

Changes to tests/pkgIndex.tcl.

1
2
3
4
5
6
#! /usr/bin/env tclsh

package ifneeded tcltests 0.1 "
    source [list $dir]/tcltests.tcl
    package provide tcltests 0.1
"


|


1
2
3
4
5
6
#! /usr/bin/env tclsh

package ifneeded tcltests 0.1 "
    source [list $dir/tcltests.tcl]
    package provide tcltests 0.1
"

Added tools/valgrind_suppress.


































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
{
   TclpGetPwNam/getpwname_r/__nss_next2/calloc
   Memcheck:Leak
   match-leak-kinds: reachable
   fun:calloc
   ...
   fun:__nss_next2
   ...
   fun:TclpGetPwNam
}

{
   TclpGetPwNam/getpwname_r/__nss_next2/malloc
   Memcheck:Leak
   match-leak-kinds: reachable
   fun:malloc
   ...
   fun:__nss_next2
   ...
   fun:TclpGetPwNam
}

{
   TclpGetPwNam/getpwname_r/_nss_systemd_getpwnam_r/malloc
   Memcheck:Leak
   match-leak-kinds: reachable
   fun:malloc
   ...
   fun:_nss_systemd_getpwnam_r
   ...
   fun:TclpGetPwNam
}

Changes to unix/Makefile.in.

258
259
260
261
262
263
264

265

266
267
268
269
270
271
272
# configurations easier.
#--------------------------------------------------------------------------

GDB			= gdb
TRACE			= strace
TRACE_OPTS		=
VALGRIND		= valgrind

VALGRINDARGS		= --tool=memcheck --num-callers=8 --leak-resolution=high --leak-check=yes --show-reachable=yes -v


#--------------------------------------------------------------------------
# The information below should be usable as is. The configure script won't
# modify it and you shouldn't need to modify it either.
#--------------------------------------------------------------------------

STUB_CC_SWITCHES = ${CFLAGS} ${CFLAGS_WARNING} ${SHLIB_CFLAGS} \






>
|
>







258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
# configurations easier.
#--------------------------------------------------------------------------

GDB			= gdb
TRACE			= strace
TRACE_OPTS		=
VALGRIND		= valgrind
VALGRINDARGS		= --tool=memcheck --num-callers=24 \
    --leak-resolution=high --leak-check=yes --show-reachable=yes -v \
    --suppressions=$(TOOL_DIR)/valgrind_suppress

#--------------------------------------------------------------------------
# The information below should be usable as is. The configure script won't
# modify it and you shouldn't need to modify it either.
#--------------------------------------------------------------------------

STUB_CC_SWITCHES = ${CFLAGS} ${CFLAGS_WARNING} ${SHLIB_CFLAGS} \