diff options
| author | Guido van Rossum <guido@python.org> | 1993-04-07 14:06:14 (GMT) |
|---|---|---|
| committer | Guido van Rossum <guido@python.org> | 1993-04-07 14:06:14 (GMT) |
| commit | 9575a4457559ed280bdd66e600fbd9f1b54d86d2 (patch) | |
| tree | 3cc2134f011f7f4a4cf595c6ca8aa0bb2a437ed6 /Objects | |
| parent | f56e3db1dd4bedc9331933504f5008a03f5d3131 (diff) | |
| download | cpython-9575a4457559ed280bdd66e600fbd9f1b54d86d2.zip cpython-9575a4457559ed280bdd66e600fbd9f1b54d86d2.tar.gz cpython-9575a4457559ed280bdd66e600fbd9f1b54d86d2.tar.bz2 | |
* Microscopic corrections to make things compile on the Cray APP.
* Removed one use of $> in Makefile and warned about others.
Added configurable lines in Makefile to change CC and AR.
Diffstat (limited to 'Objects')
| -rw-r--r-- | Objects/floatobject.c | 6 | ||||
| -rw-r--r-- | Objects/intobject.c | 4 |
2 files changed, 8 insertions, 2 deletions
diff --git a/Objects/floatobject.c b/Objects/floatobject.c index 8533e0e..6a95ebf 100644 --- a/Objects/floatobject.c +++ b/Objects/floatobject.c @@ -38,6 +38,11 @@ extern int errno; #include <ctype.h> #include <math.h> +#ifdef i860 +/* Cray APP has bogus definition of HUGE_VAL in <math.h> */ +#undef HUGE_VAL +#endif + #ifdef HUGE_VAL #define CHECK(x) if (errno != 0) ; \ else if (-HUGE_VAL <= (x) && (x) <= HUGE_VAL) ; \ @@ -170,6 +175,7 @@ float_hash(v) } else { fractpart = frexp(fractpart, &expo); + fractpart = fractpart*4294967296.0; /* 2**32 */ x = (long) (intpart + fractpart) ^ expo; /* Rather arbitrary */ } if (x == -1) diff --git a/Objects/intobject.c b/Objects/intobject.c index 6806f0c..3021873 100644 --- a/Objects/intobject.c +++ b/Objects/intobject.c @@ -426,7 +426,7 @@ int_int(v) intobject *v; { INCREF(v); - return v; + return (object *)v; } static object * @@ -512,5 +512,5 @@ typeobject Inttype = { &int_as_number, /*tp_as_number*/ 0, /*tp_as_sequence*/ 0, /*tp_as_mapping*/ - &int_hash, /*tp_hash*/ + int_hash, /*tp_hash*/ }; |