Differences From Artifact [b42a24d336]:

• File unix/tclAppInit.c — part of check-in [ca5713da63] at 2002-11-26 20:05:50 on branch mod-8-3-4-branch — * generic/tclMain.c (Tcl_Main): added Tcl_DeleteInterp and * unix/tclAppInit.c (main): Tcl_Finalize in -DPURIFY case to help indentify memory leaks. (user: hobbs size: 5107)

To Artifact [f584a02acd]:

• File unix/tclAppInit.c — part of check-in [a9a7ea8404] at 2002-12-06 03:08:17 on branch mod-8-3-4-branch — * generic/tclCompile.c (TclCleanupByteCode): When encountering a shared bytecode structure we have to scan the literal table in that structure for objects of type "cmdName". These objects hold references to command structures, possibly in a different interp, and interfere with the cleanup of the refered commands (they keep their refcount up). Essentially at least one interp in a set of clones has a circular reference comand -> proc -> bytecode -> bytecode data -> cmdName obj -> command which prevents the command int that interp from being freed, leaking memory. The solution employed here is to invalidate the internal representation of 'cmdName's (but keeping the string rep), driving the refcount of refered command structures down, and breaking the cycle. (user: andreas_kupries size: 5118)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

/* 
 * tclAppInit.c --
 *
 *	Provides a default version of the main program and Tcl_AppInit
 *	procedure for Tcl applications (without Tk).
 *
 * Copyright (c) 1993 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclAppInit.c,v 1.9.20.1 2002/11/26 20:05:51 hobbs Exp $
 */

#include "tcl.h"

/*
 * The following variable is a special hack that is needed in order for
 * Sun shared libraries to be used for Tcl.

|

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

/* 
 * tclAppInit.c --
 *
 *	Provides a default version of the main program and Tcl_AppInit
 *	procedure for Tcl applications (without Tk).
 *
 * Copyright (c) 1993 The Regents of the University of California.
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 * Copyright (c) 1998-1999 by Scriptics Corporation.
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclAppInit.c,v 1.9.20.2 2002/12/06 03:08:19 andreas_kupries Exp $
 */

#include "tcl.h"

/*
 * The following variable is a special hack that is needed in order for
 * Sun shared libraries to be used for Tcl.

93
94
95
96
97
98
99

100
101
102
103
104
105
106

#endif

#ifdef TCL_LOCAL_MAIN_HOOK
    TCL_LOCAL_MAIN_HOOK(&argc, &argv);
#endif

    Tcl_Main(argc, argv, TCL_LOCAL_APPINIT);

#ifdef PURIFY
    /*
     * This isn't necessary - we are about to exit, but it assists in
     * finding leaks.
     */
    Tcl_Finalize();
#endif

>

93
94
95
96
97
98
99
100
101
102
103
104
105
106
107

#endif

#ifdef TCL_LOCAL_MAIN_HOOK
    TCL_LOCAL_MAIN_HOOK(&argc, &argv);
#endif

    Tcl_Main(argc, argv, TCL_LOCAL_APPINIT);

#ifdef PURIFY
    /*
     * This isn't necessary - we are about to exit, but it assists in
     * finding leaks.
     */
    Tcl_Finalize();
#endif