Tcl Source Code

Check-in [2d83613c95]
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:fixed a typo in the name of the -verbose flag
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2d83613c9519e46c91c1fb8491206efe1dac51ae
User & Date: escoffon 1998-07-14 14:49:54
Context
1998-07-15
11:08
Added check for precompiled ByteCodes, to avoid recompilation if the epoch has changed in the interp... check-in: dcf1220ab8 user: escoffon tags: trunk
1998-07-14
14:49
fixed a typo in the name of the -verbose flag check-in: 2d83613c95 user: escoffon tags: trunk
10:34
rolled back the check for compiled procs in Tcl_ProcObjCmd, do the unsharing even for compiled procs... check-in: a3578ade10 user: escoffon tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to library/init.tcl.

1
2
3
4
5
6
7
8
9
10
11
12
13
...
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
# init.tcl --
#
# Default system startup file for Tcl-based applications.  Defines
# "unknown" procedure and auto-load facilities.
#
# SCCS: %Z% $Id: init.tcl,v 1.6 1998/07/13 17:53:36 escoffon Exp $ 
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
................................................................................
	switch -glob -- $flag {
	    -- {
		# done with the flags
		incr idx
		break
	    }

	    -vervose {
		set doVerbose 1
	    }

	    -direct {
		set direct 1
		append more " -direct"
	    }




|







 







|







1
2
3
4
5
6
7
8
9
10
11
12
13
...
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
# init.tcl --
#
# Default system startup file for Tcl-based applications.  Defines
# "unknown" procedure and auto-load facilities.
#
# SCCS: %Z% $Id: init.tcl,v 1.7 1998/07/14 14:49:54 escoffon Exp $ 
#
# Copyright (c) 1991-1993 The Regents of the University of California.
# Copyright (c) 1994-1996 Sun Microsystems, Inc.
#
# See the file "license.terms" for information on usage and redistribution
# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
................................................................................
	switch -glob -- $flag {
	    -- {
		# done with the flags
		incr idx
		break
	    }

	    -verbose {
		set doVerbose 1
	    }

	    -direct {
		set direct 1
		append more " -direct"
	    }