diff options
| author | stanton <stanton> | 1999-04-16 00:46:29 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-04-16 00:46:29 (GMT) |
| commit | 97464e6cba8eb0008cf2727c15718671992b913f (patch) | |
| tree | ce9959f2747257d98d52ec8d18bf3b0de99b9535 /mac/tclMacOSA.c | |
| parent | a8c96ddb94d1483a9de5e340b740cb74ef6cafa7 (diff) | |
| download | tcl-97464e6cba8eb0008cf2727c15718671992b913f.zip tcl-97464e6cba8eb0008cf2727c15718671992b913f.tar.gz tcl-97464e6cba8eb0008cf2727c15718671992b913f.tar.bz2 | |
merged tcl 8.1 branch back into the main trunk
Diffstat (limited to 'mac/tclMacOSA.c')
| -rw-r--r-- | mac/tclMacOSA.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/mac/tclMacOSA.c b/mac/tclMacOSA.c index d4bc14d..b09cb59 100644 --- a/mac/tclMacOSA.c +++ b/mac/tclMacOSA.c @@ -12,7 +12,7 @@ * See the file "License Terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclMacOSA.c,v 1.2 1998/09/14 18:40:05 stanton Exp $ + * RCS: @(#) $Id: tclMacOSA.c,v 1.3 1999/04/16 00:47:20 stanton Exp $ */ #define MAC_TCL @@ -1926,7 +1926,7 @@ tclOSAAddContext( int newPtr; if (contextName == NULL) { - contextName = ckalloc(24 * sizeof(char)); + contextName = ckalloc(16 + TCL_INTEGER_SPACE); sprintf(contextName, "OSAContext%d", contextIndex++); } else if (*contextName == '\0') { sprintf(contextName, "OSAContext%d", contextIndex++); @@ -2057,7 +2057,7 @@ tclOSAStore( Str255 rezName; int result = TCL_OK; short saveRef, fileRef = -1; - char idStr[64]; + char idStr[16 + TCL_INTEGER_SPACE]; FSSpec fileSpec; Tcl_DString buffer; char *nativeName; @@ -2276,7 +2276,7 @@ tclOSALoad( Str255 rezName; int result = TCL_OK; short saveRef, fileRef = -1; - char idStr[64]; + char idStr[16 + TCL_INTEGER_SPACE]; FSSpec fileSpec; Tcl_DString buffer; char *nativeName; |