Tcl Source Code: Check-in [2d83613c95]

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.

# 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"
	    }

# 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"
	    }