Tcl Source Code

Check-in [4537584c92]
Login

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

Overview
Comment:put braces around all macro parameters
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | novem
Files: files | file ages | folders
SHA1: 4537584c92026e46fa9e52da1754f921ad833596
User & Date: jan.nijtmans 2013-02-07 14:22:16
Context
2013-02-08
13:28
Merge trunk. Eliminate all usage of internal macros: TclNewIntObj, TclNewBooleanObj, TclSetIntObj, ... check-in: bb4707eb07 user: jan.nijtmans tags: novem
2013-02-07
14:22
put braces around all macro parameters check-in: 4537584c92 user: jan.nijtmans tags: novem
13:57
merge trunk check-in: 74dc2e68f8 user: jan.nijtmans tags: novem
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclDecls.h.

3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
#define Tcl_PkgRequire(interp, name, version, exact) \
	Tcl_PkgRequireEx(interp, name, version, exact, NULL)
#define Tcl_Eval(interp,objPtr) \
	Tcl_EvalEx((interp),(objPtr),-1,0)
#define Tcl_GlobalEval(interp,objPtr) \
	Tcl_EvalEx((interp),(objPtr),-1,TCL_EVAL_GLOBAL)
#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
	Tcl_GetIndexFromObjStruct(interp, objPtr, tablePtr, (int)sizeof(char *), \
	msg, flags, indexPtr)
/*
 * Deprecated Tcl procedures:
 */

#ifndef TCL_NO_DEPRECATED
#   define Tcl_EvalObj(interp,objPtr) \
	    Tcl_EvalObjEx((interp),(objPtr),0)







|
|







3733
3734
3735
3736
3737
3738
3739
3740
3741
3742
3743
3744
3745
3746
3747
3748
#define Tcl_PkgRequire(interp, name, version, exact) \
	Tcl_PkgRequireEx(interp, name, version, exact, NULL)
#define Tcl_Eval(interp,objPtr) \
	Tcl_EvalEx((interp),(objPtr),-1,0)
#define Tcl_GlobalEval(interp,objPtr) \
	Tcl_EvalEx((interp),(objPtr),-1,TCL_EVAL_GLOBAL)
#define Tcl_GetIndexFromObj(interp, objPtr, tablePtr, msg, flags, indexPtr) \
	Tcl_GetIndexFromObjStruct((interp), (objPtr), (tablePtr), \
	sizeof(char *), (msg), (flags), (indexPtr))
/*
 * Deprecated Tcl procedures:
 */

#ifndef TCL_NO_DEPRECATED
#   define Tcl_EvalObj(interp,objPtr) \
	    Tcl_EvalObjEx((interp),(objPtr),0)