diff options
| author | mig <mig> | 2011-03-18 12:54:54 (GMT) |
|---|---|---|
| committer | mig <mig> | 2011-03-18 12:54:54 (GMT) |
| commit | d39d0d10ce4528636fd31ff8b8395689c601ecf4 (patch) | |
| tree | fa0e823ccf0388ab9b5df5c91c91aa1247cf1624 /generic/tclScan.c | |
| parent | d93502805549e12df3a79ffe8bd23204b04925fc (diff) | |
| download | tcl-d39d0d10ce4528636fd31ff8b8395689c601ecf4.zip tcl-d39d0d10ce4528636fd31ff8b8395689c601ecf4.tar.gz tcl-d39d0d10ce4528636fd31ff8b8395689c601ecf4.tar.bz2 | |
development branch for allocator changes
Diffstat (limited to 'generic/tclScan.c')
| -rw-r--r-- | generic/tclScan.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclScan.c b/generic/tclScan.c index c862be4..45f970d 100644 --- a/generic/tclScan.c +++ b/generic/tclScan.c @@ -259,7 +259,7 @@ ValidateFormat( char *end; Tcl_UniChar ch; int objIndex, xpgSize, nspace = numVars; - int *nassign = TclStackAlloc(interp, nspace * sizeof(int)); + int *nassign = ckalloc(nspace * sizeof(int)); char buf[TCL_UTF_MAX+1]; /* @@ -465,8 +465,7 @@ ValidateFormat( } else { nspace += 16; /* formerly STATIC_LIST_SIZE */ } - nassign = TclStackRealloc(interp, nassign, - nspace * sizeof(int)); + nassign = ckrealloc(nassign, nspace * sizeof(int)); for (i = value; i < nspace; i++) { nassign[i] = 0; } @@ -509,7 +508,7 @@ ValidateFormat( } } - TclStackFree(interp, nassign); + ckfree(nassign); return TCL_OK; badIndex: @@ -523,7 +522,7 @@ ValidateFormat( } error: - TclStackFree(interp, nassign); + ckfree(nassign); return TCL_ERROR; } |