diff options
| author | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-14 15:01:18 (GMT) |
|---|---|---|
| committer | apnadkarni <apnmbx-wits@yahoo.com> | 2023-04-14 15:01:18 (GMT) |
| commit | 0db2f11f15f912f0e79b915e2f2af197b7c3be20 (patch) | |
| tree | d687a0578a3abc79fe9d4a121f91e407208cf9ff /generic/tclBinary.c | |
| parent | 4307d0a739ddfd9545e59a0ccf16067fc2dab2a2 (diff) | |
| parent | f7c3a988274b5e8026bf4836028bfd6831e6a615 (diff) | |
| download | tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.zip tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.tar.gz tcl-0db2f11f15f912f0e79b915e2f2af197b7c3be20.tar.bz2 | |
Merge trunk
Diffstat (limited to 'generic/tclBinary.c')
| -rw-r--r-- | generic/tclBinary.c | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/generic/tclBinary.c b/generic/tclBinary.c index 0acbd87..d0aa089 100644 --- a/generic/tclBinary.c +++ b/generic/tclBinary.c @@ -26,7 +26,7 @@ #define BINARY_NOCOUNT -2 /* No count was specified in format. */ /* - * The following flags may be ORed together and returned by GetFormatSpec + * The following flags may be OR'ed together and returned by GetFormatSpec */ #define BINARY_SIGNED 0 /* Field to be read as signed data */ @@ -37,7 +37,7 @@ * placed in the object cache by 'binary scan' before it bails out and * switches back to Plan A (creating a new object for each value.) * Theoretically, it would be possible to keep the cache about for the values - * that are already in it, but that makes the code slower in practise when + * that are already in it, but that makes the code slower in practice when * overflow happens, and makes little odds the rest of the time (as measured * on my machine.) It is also slower (on the sample I tried at least) to grow * the cache to hold all items we might want to put in it; presumably the @@ -381,6 +381,7 @@ Tcl_GetBytesFromObj( return baPtr->bytes; } +#if !defined(TCL_NO_DEPRECATED) unsigned char * TclGetBytesFromObj( Tcl_Interp *interp, /* For error reporting */ @@ -408,6 +409,7 @@ TclGetBytesFromObj( } return bytes; } +#endif /* *---------------------------------------------------------------------- @@ -1054,7 +1056,7 @@ BinaryFormatCmd( } /* - * Prepare the result object by preallocating the caclulated number of + * Prepare the result object by preallocating the calculated number of * bytes and filling with nulls. */ @@ -1815,7 +1817,7 @@ GetFormatSpec( * * This routine determines, if bytes of a number need to be re-ordered, * and returns a numeric code indicating the re-ordering to be done. - * This depends on the endiannes of the machine and the desired format. + * This depends on the endianness of the machine and the desired format. * It is in effect a table (whose contents depend on the endianness of * the system) describing whether a value needs reversing or not. Anyone * porting the code to a big-endian platform should take care to make |
