Tcl Source Code

Check-in [b20d838b60]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Changed TCL_STUB_MAGIC back to match plus patch implementation.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk | dev-stubs-merge-8-1-3/9/99 | core-8-1-merge-3/9/99
Files: files | file ages | folders
SHA1: b20d838b6066deeeb68b1c40dfd10e041620ad2a
User & Date: stanton 1999-03-10 06:12:55.000
Context
1999-03-10
22:55
Add Tcl_GetVersion C API check-in: ab7b94df88 user: redman tags: trunk
06:12
Changed TCL_STUB_MAGIC back to match plus patch implementation. check-in: b20d838b60 user: stanton tags: trunk, dev-stubs-merge-8-1-3/9/99, core-8-1-merge-3/9/99
05:52
Merged stubs changes into mainline for 8.0 check-in: 1969693351 user: stanton tags: trunk
Changes
Unified Diff Show Whitespace Changes Patch
Changes to ChangeLog.
1



2
3
4
5
6
7
8
1999-03-09    <stanton@GASPODE>




	* Regenerated stub interfaces.
	
	* tools/genStubs.tcl: Reorganized code to support mixed generic
	and platform specific tables. 

	* generic/tclInt.decls: Removed TclCompile*Cmd routines from the

>
>
>







1
2
3
4
5
6
7
8
9
10
11
1999-03-09    <stanton@GASPODE>

	* generic/tcl.h: Changed TCL_STUB_MAGIC back to match plus patch 
        implementation.

	* Regenerated stub interfaces.
	
	* tools/genStubs.tcl: Reorganized code to support mixed generic
	and platform specific tables. 

	* generic/tclInt.decls: Removed TclCompile*Cmd routines from the
Changes to generic/tcl.h.
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 * Copyright (c) 1993-1996 Lucent Technologies.
 * Copyright (c) 1998-1999 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: tcl.h,v 1.34 1999/03/10 05:52:46 stanton Exp $
 */

#ifndef _TCL
#define _TCL

/*
 * When version numbers change here, must also go into the following files







|







8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 * Copyright (c) 1994-1997 Sun Microsystems, Inc.
 * Copyright (c) 1993-1996 Lucent Technologies.
 * Copyright (c) 1998-1999 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: tcl.h,v 1.35 1999/03/10 06:12:55 stanton Exp $
 */

#ifndef _TCL
#define _TCL

/*
 * When version numbers change here, must also go into the following files
1067
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078
1079
1080
1081
1082
1083
1084
1085
1086

#define Tcl_Panic panic
#define Tcl_PanicVA panicVA

/*
 * The following constant is used to test for older versions of Tcl
 * in the stubs tables.
 *
 * The plus patch implementation uses 0xFCA1BACF so we need to pick
 * a different value to avoid accidental matches.
 */

#define TCL_STUB_MAGIC 0xFCA3BACF

/*
 * The following function is required to be defined in all stubs aware
 * extensions.  The function is actually implemented in the stub
 * library, not the main Tcl library, although there is a trivial
 * implementation in the main library in case an extension is statically
 * linked into an application.







<
<
<


|







1067
1068
1069
1070
1071
1072
1073



1074
1075
1076
1077
1078
1079
1080
1081
1082
1083

#define Tcl_Panic panic
#define Tcl_PanicVA panicVA

/*
 * The following constant is used to test for older versions of Tcl
 * in the stubs tables.



 */

#define TCL_STUB_MAGIC 0xFCA1BACF

/*
 * The following function is required to be defined in all stubs aware
 * extensions.  The function is actually implemented in the stub
 * library, not the main Tcl library, although there is a trivial
 * implementation in the main library in case an extension is statically
 * linked into an application.