diff options
| author | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-03-16 15:51:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <jan.nijtmans@noemail.net> | 2011-03-16 15:51:23 (GMT) |
| commit | f590b13dafe05282e787edbff1017269d65ddb8f (patch) | |
| tree | 119dfe299caa274250c7187e003326188cc5fe75 /generic/tclCkalloc.c | |
| parent | 244d9eab4d913a24ac8afa419db153a9bc3c0d8d (diff) | |
| download | tcl-f590b13dafe05282e787edbff1017269d65ddb8f.zip tcl-f590b13dafe05282e787edbff1017269d65ddb8f.tar.gz tcl-f590b13dafe05282e787edbff1017269d65ddb8f.tar.bz2 | |
[Bug #3197864] pointer truncation on Win64 TCL_MEM_DEBUG builds
FossilOrigin-Name: b9ab93d4aaf435de7bb5229d4525d1ee50b1fa6e
Diffstat (limited to 'generic/tclCkalloc.c')
| -rw-r--r-- | generic/tclCkalloc.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCkalloc.c b/generic/tclCkalloc.c index 07fdf4c..e81eaea 100644 --- a/generic/tclCkalloc.c +++ b/generic/tclCkalloc.c @@ -82,7 +82,7 @@ static struct mem_header *allocHead = NULL; /* List of allocated structures */ */ #define BODY_OFFSET \ - ((unsigned long) (&((struct mem_header *) 0)->body)) + ((size_t) (&((struct mem_header *) 0)->body)) static int total_mallocs = 0; static int total_frees = 0; @@ -577,7 +577,7 @@ Tcl_DbCkfree(ptr, file, line) * even though BODY_OFFSET is in words on these machines). */ - memp = (struct mem_header *) (((unsigned long) ptr) - BODY_OFFSET); + memp = (struct mem_header *) (((size_t) ptr) - BODY_OFFSET); if (alloc_tracing) { fprintf(stderr, "ckfree %lx %ld %s %d\n", @@ -652,7 +652,7 @@ Tcl_DbCkrealloc(ptr, size, file, line) * line. */ - memp = (struct mem_header *) (((unsigned long) ptr) - BODY_OFFSET); + memp = (struct mem_header *) (((size_t) ptr) - BODY_OFFSET); copySize = size; if (copySize > (unsigned int) memp->length) { @@ -684,7 +684,7 @@ Tcl_AttemptDbCkrealloc(ptr, size, file, line) * line. */ - memp = (struct mem_header *) (((unsigned long) ptr) - BODY_OFFSET); + memp = (struct mem_header *) (((size_t) ptr) - BODY_OFFSET); copySize = size; if (copySize > (unsigned int) memp->length) { |