Tcl Source Code

Check-in [2d83613c95]
Login

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
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 2d83613c9519e46c91c1fb8491206efe1dac51ae
User & Date: escoffon 1998-07-14 14:49:54.000
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
Unified Diff Ignore Whitespace Patch
Changes to library/init.tcl.
1
2
3
4
5
6
7
8
9
10
11
12
13
# 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.
#





|







1
2
3
4
5
6
7
8
9
10
11
12
13
# 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.
#
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
	switch -glob -- $flag {
	    -- {
		# done with the flags
		incr idx
		break
	    }

	    -vervose {
		set doVerbose 1
	    }

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







|







623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
	switch -glob -- $flag {
	    -- {
		# done with the flags
		incr idx
		break
	    }

	    -verbose {
		set doVerbose 1
	    }

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