Tcl Source Code

Check-in [fb1c6ebe6f]
Login

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

Overview
Comment:Fix syntax error in previous commit.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | pyk-TclOO
Files: files | file ages | folders
SHA3-256: fb1c6ebe6fa516ddf34b1f4a51baa1322e83e0bbf5fb3cc59e822f85870215b8
User & Date: pooryorick 2017-12-13 12:56:02
Context
2018-02-15
09:40
Fix syntax error in previous commit. check-in: 32993ddd16 user: pooryorick tags: pyk-TclOO
2017-12-26
17:27
merge core-8-branch check-in: 59e7da9c29 user: pooryorick tags: pyk-TclOO
2017-12-13
12:56
Fix syntax error in previous commit. check-in: fb1c6ebe6f user: pooryorick tags: pyk-TclOO
2017-12-11
23:50
Add the check for wrong arguments back to TclOO_Object_Destroy, remove inadvertant increment of Name... check-in: 00b79acaf0 user: pooryorick tags: pyk-TclOO
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclOO.c.

234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
#define IsRootObject(ocPtr)	((ocPtr)->flags & ROOT_OBJECT)
#define IsRootClass(ocPtr)	((ocPtr)->flags & ROOT_CLASS)
#define IsRoot(ocPtr)		((ocPtr)->flags & (ROOT_OBJECT|ROOT_CLASS))

#define RemoveItem(type, lst, i) \
    do { \
	Remove ## type ((lst).list, (lst).num, i); \
	(lst).num-- \
    } while 0

/*
 * ----------------------------------------------------------------------
 *
 * TclOOInit --
 *
 *	Called to initialise the OO system within an interpreter.







|
|







234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
#define IsRootObject(ocPtr)	((ocPtr)->flags & ROOT_OBJECT)
#define IsRootClass(ocPtr)	((ocPtr)->flags & ROOT_CLASS)
#define IsRoot(ocPtr)		((ocPtr)->flags & (ROOT_OBJECT|ROOT_CLASS))

#define RemoveItem(type, lst, i) \
    do { \
	Remove ## type ((lst).list, (lst).num, i); \
	(lst).num--; \
    } while (0)

/*
 * ----------------------------------------------------------------------
 *
 * TclOOInit --
 *
 *	Called to initialise the OO system within an interpreter.