Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
| Comment: | Fix previous patch on Solaris, need to provide the Tcl package before calling Tcl_InitStubs(). |
|---|---|
| Downloads: | Tarball | ZIP archive |
| Timelines: | family | ancestors | descendants | both | core-8-1-branch-old |
| Files: | files | file ages | folders |
| SHA1: |
c8e8856000e534d90e9a75033a3b344b |
| User & Date: | redman 1999-04-02 00:54:16.000 |
Context
|
1999-04-02
| ||
| 18:57 | minor changes to fix bad code that was outside of "test" calls. check-in: f2aaa3e425 user: hershey tags: core-8-1-branch-old | |
| 00:54 | Fix previous patch on Solaris, need to provide the Tcl package before calling Tcl_InitStubs(). check-in: c8e8856000 user: redman tags: core-8-1-branch-old | |
|
1999-04-01
| ||
| 23:25 | Reimplemented Tcl_ConditionNotify and Tcl_ConditionWait based on an algorithm contributed by Jim Dav... check-in: 87deb82e27 user: welch tags: core-8-1-branch-old | |
Changes
Changes to generic/tclBasic.c.
| ︙ | ︙ | |||
8 9 10 11 12 13 14 | * Copyright (c) 1987-1994 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. * | | | 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 | * Copyright (c) 1987-1994 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: tclBasic.c,v 1.1.2.14 1999/04/02 00:54:16 redman Exp $ */ #include "tclInt.h" #include "tclCompile.h" #ifndef TCL_GENERIC_ONLY # include "tclPort.h" #endif |
| ︙ | ︙ | |||
400 401 402 403 404 405 406 |
/*
* Initialise the stub table pointer.
*/
iPtr->stubTable = &tclStubs;
| < < < < | 400 401 402 403 404 405 406 407 408 409 410 411 412 413 |
/*
* Initialise the stub table pointer.
*/
iPtr->stubTable = &tclStubs;
/*
* Create the core commands. Do it here, rather than calling
* Tcl_CreateCommand, because it's faster (there's no need to check for
* a pre-existing command by the same name). If a command has a
* Tcl_CmdProc but no Tcl_ObjCmdProc, set the Tcl_ObjCmdProc to
* TclInvokeStringCommand. This is an object-based wrapper procedure
|
| ︙ | ︙ | |||
540 541 542 543 544 545 546 547 548 549 550 551 552 553 |
/*
* Register Tcl's version number.
*/
Tcl_PkgProvideEx(interp, "Tcl", TCL_VERSION, (ClientData) &tclStubs);
return interp;
}
/*
*----------------------------------------------------------------------
*
* TclHideUnsafeCommands --
| > > > > > | 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 |
/*
* Register Tcl's version number.
*/
Tcl_PkgProvideEx(interp, "Tcl", TCL_VERSION, (ClientData) &tclStubs);
#ifdef Tcl_InitStubs
#undef Tcl_InitStubs
#endif
Tcl_InitStubs(interp, TCL_VERSION, 1);
return interp;
}
/*
*----------------------------------------------------------------------
*
* TclHideUnsafeCommands --
|
| ︙ | ︙ |