Fix for hangs on the form 0fInf. (Fix from PR 2279)
This commit is contained in:
parent
1ac76dc9c2
commit
912d727afa
@ -1,4 +1,4 @@
|
|||||||
# $Id: Makefile.ns32k,v 1.1 1994/04/08 08:39:04 phil Exp $
|
# $Id: Makefile.ns32k,v 1.2 1996/04/05 16:21:14 phil Exp $
|
||||||
|
|
||||||
CFLAGS+= -DPIC -DNS32532 -DNS32381
|
CFLAGS+= -DPIC -DNS32532 -DNS32381
|
||||||
SRCS+= tc-ns32k.c atof-ns32k.c
|
SRCS+= tc-ns32k.c atof-ieee.c
|
||||||
|
@ -1337,7 +1337,7 @@ int *sizeP;
|
|||||||
int prec;
|
int prec;
|
||||||
LITTLENUM_TYPE words[MAX_LITTLENUMS];
|
LITTLENUM_TYPE words[MAX_LITTLENUMS];
|
||||||
LITTLENUM_TYPE *wordP;
|
LITTLENUM_TYPE *wordP;
|
||||||
extern char *atof_ns32k();
|
extern char *atof_ieee();
|
||||||
char *t;
|
char *t;
|
||||||
|
|
||||||
switch (type) {
|
switch (type) {
|
||||||
@ -1352,12 +1352,12 @@ int *sizeP;
|
|||||||
*sizeP = 0;
|
*sizeP = 0;
|
||||||
return "Bad call to MD_ATOF()";
|
return "Bad call to MD_ATOF()";
|
||||||
}
|
}
|
||||||
t = atof_ns32k(input_line_pointer, type, words);
|
t = atof_ieee(input_line_pointer, type, words);
|
||||||
if (t)
|
if (t)
|
||||||
input_line_pointer=t;
|
input_line_pointer=t;
|
||||||
|
|
||||||
*sizeP = prec * sizeof(LITTLENUM_TYPE);
|
*sizeP = prec * sizeof(LITTLENUM_TYPE);
|
||||||
for (wordP = words +prec; prec--;) {
|
for (wordP = words + prec; prec--;) {
|
||||||
md_number_to_chars(litP, (long)(*--wordP), sizeof(LITTLENUM_TYPE));
|
md_number_to_chars(litP, (long)(*--wordP), sizeof(LITTLENUM_TYPE));
|
||||||
litP+=sizeof(LITTLENUM_TYPE);
|
litP+=sizeof(LITTLENUM_TYPE);
|
||||||
}
|
}
|
||||||
|
Loading…
Reference in New Issue
Block a user