OLD | NEW |
1 /**************************************************************** | 1 /**************************************************************** |
2 * | 2 * |
3 * The author of this software is David M. Gay. | 3 * The author of this software is David M. Gay. |
4 * | 4 * |
5 * Copyright (c) 1991, 2000, 2001 by Lucent Technologies. | 5 * Copyright (c) 1991, 2000, 2001 by Lucent Technologies. |
6 * | 6 * |
7 * Permission to use, copy, modify, and distribute this software for any | 7 * Permission to use, copy, modify, and distribute this software for any |
8 * purpose without fee is hereby granted, provided that this entire notice | 8 * purpose without fee is hereby granted, provided that this entire notice |
9 * is included in all copies of any software which is or includes a copy | 9 * is included in all copies of any software which is or includes a copy |
10 * or modification of this software and in all copies of the supporting | 10 * or modification of this software and in all copies of the supporting |
(...skipping 1541 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
1552 #ifdef KR_headers | 1552 #ifdef KR_headers |
1553 (rvp, sp) U *rvp; CONST char **sp; | 1553 (rvp, sp) U *rvp; CONST char **sp; |
1554 #else | 1554 #else |
1555 (U *rvp, CONST char **sp) | 1555 (U *rvp, CONST char **sp) |
1556 #endif | 1556 #endif |
1557 { | 1557 { |
1558 ULong c, x[2]; | 1558 ULong c, x[2]; |
1559 CONST char *s; | 1559 CONST char *s; |
1560 int c1, havedig, udx0, xshift; | 1560 int c1, havedig, udx0, xshift; |
1561 | 1561 |
1562 » if (!hexdig[(int)'0']) | 1562 » if (!hexdig['0']) |
1563 hexdig_init(); | 1563 hexdig_init(); |
1564 x[0] = x[1] = 0; | 1564 x[0] = x[1] = 0; |
1565 havedig = xshift = 0; | 1565 havedig = xshift = 0; |
1566 udx0 = 1; | 1566 udx0 = 1; |
1567 s = *sp; | 1567 s = *sp; |
1568 /* allow optional initial 0x or 0X */ | 1568 /* allow optional initial 0x or 0X */ |
1569 while((c = *(CONST unsigned char*)(s+1)) && c <= ' ') | 1569 while((c = *(CONST unsigned char*)(s+1)) && c <= ' ') |
1570 ++s; | 1570 ++s; |
1571 if (s[1] == '0' && (s[2] == 'x' || s[2] == 'X')) | 1571 if (s[1] == '0' && (s[2] == 'x' || s[2] == 'X')) |
1572 s += 2; | 1572 s += 2; |
(...skipping 2627 matching lines...) Expand 10 before | Expand all | Expand 10 after Loading... |
4200 #endif | 4200 #endif |
4201 Bfree(b); | 4201 Bfree(b); |
4202 *s = 0; | 4202 *s = 0; |
4203 *decpt = k + 1; | 4203 *decpt = k + 1; |
4204 if (rve) | 4204 if (rve) |
4205 *rve = s; | 4205 *rve = s; |
4206 return s0; | 4206 return s0; |
4207 } | 4207 } |
4208 | 4208 |
4209 } // namespace dmg_fp | 4209 } // namespace dmg_fp |
OLD | NEW |