Artifact
1b6bf63dc027b8bb8c94860415fa6faa216b448c:
Attachment "tclExecute.c.diff" to
ticket [3339502fff]
added by
mistachkin
2011-06-28 11:56:27.
Index: generic/tclExecute.c
===================================================================
--- generic/tclExecute.c
+++ generic/tclExecute.c
@@ -333,11 +333,11 @@
#define OBJ_UNDER_TOS *(tosPtr-1)
#define OBJ_AT_DEPTH(n) *(tosPtr-(n))
-#define CURR_DEPTH ((unsigned long) (tosPtr - initTosPtr))
+#define CURR_DEPTH ((ptrdiff_t) (tosPtr - initTosPtr))
/*
* Macros used to trace instruction execution. The macros TRACE,
* TRACE_WITH_OBJ, and O2S are only used inside TclNRExecuteByteCode. O2S is
* only used in TRACE* calls to get a string from an object.