summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2008-05-31 19:56:03 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2008-05-31 19:56:03 (GMT)
commitd4816fa0c5eb1cea8d0e924c3187887e2c96cd11 (patch)
treef7c861333e5590715bf0058fbc67e0c41958fd09 /generic
parent5b6e0993e188fd16bbb2ec7f54b8b0c7be873629 (diff)
downloadtcl-d4816fa0c5eb1cea8d0e924c3187887e2c96cd11.zip
tcl-d4816fa0c5eb1cea8d0e924c3187887e2c96cd11.tar.gz
tcl-d4816fa0c5eb1cea8d0e924c3187887e2c96cd11.tar.bz2
Make things build (cleanly) on Win32. Thanks to Joe Mistachkin. [Patch 1980861]
Diffstat (limited to 'generic')
-rw-r--r--generic/tclBasic.c3
-rw-r--r--generic/tclOOInt.h8
2 files changed, 6 insertions, 5 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c
index 0a45567..57fefe2 100644
--- a/generic/tclBasic.c
+++ b/generic/tclBasic.c
@@ -14,10 +14,11 @@
* 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.299 2008/05/31 11:42:13 dkf Exp $
+ * RCS: @(#) $Id: tclBasic.c,v 1.300 2008/05/31 19:56:06 dkf Exp $
*/
#include "tclInt.h"
+#include "tclOOInt.h"
#include "tclCompile.h"
#include <float.h>
#include <limits.h>
diff --git a/generic/tclOOInt.h b/generic/tclOOInt.h
index 7c0b6a7..580ea13 100644
--- a/generic/tclOOInt.h
+++ b/generic/tclOOInt.h
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclOOInt.h,v 1.1 2008/05/31 11:42:18 dkf Exp $
+ * RCS: @(#) $Id: tclOOInt.h,v 1.2 2008/05/31 19:56:07 dkf Exp $
*/
#include <tclInt.h>
@@ -493,9 +493,9 @@ MODULE_SCOPE int TclOOGetSortedMethodList(Object *oPtr, int flags,
const char ***stringsPtr);
MODULE_SCOPE int TclOOInit(Tcl_Interp *interp);
MODULE_SCOPE void TclOOInitInfo(Tcl_Interp *interp);
-MODULE_SCOPE int TclOOInvokeContext(Tcl_Interp *interp,
- CallContext *contextPtr, int objc,
- Tcl_Obj *const *objv);
+MODULE_SCOPE int TclOOInvokeContext(Tcl_Interp *const interp,
+ CallContext *const contextPtr, int const objc,
+ Tcl_Obj *const *const objv);
MODULE_SCOPE void TclOONewBasicMethod(Tcl_Interp *interp, Class *clsPtr,
const DeclaredClassMethod *dcm);
MODULE_SCOPE Tcl_Obj * TclOOObjectName(Tcl_Interp *interp, Object *oPtr);