| 5020 | */ |
| 5021 | |
| 5022 | void |
| 5023 | freedtoa(char *s __XS__d) |
| 5024 | { |
| 5025 | #ifdef MULTIPLE_THREADS |
| 5026 | ThInfo *TI = 0; |
| 5027 | #endif |
| 5028 | Bigint *b = (Bigint *)((int *)s - 1); |
| 5029 | b->maxwds = 1 << (b->k = *(int*)b); |
| 5030 | Bfree(b MTb); |
| 5031 | #ifndef MULTIPLE_THREADS |
| 5032 | #ifndef __XS__ |
| 5033 | if (s == dtoa_result) |
| 5034 | dtoa_result = 0; |
| 5035 | #endif |
| 5036 | #endif |
| 5037 | } |
| 5038 | |
| 5039 | /* dtoa for IEEE arithmetic (dmg): convert double to ASCII string. |
| 5040 | * |
no outgoing calls
no test coverage detected