diogo/yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fix isfinite

Browse Source
This commit is contained in:
Vítor Santos Costa 2013-11-23 14:51:56 +00:00
parent fd58cf10b2
commit 03879aa778
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
C/scanner.c
View File

@ -237,7 +237,7 @@ float_send(char *s, int sign)
{ {
GET_LD GET_LD
Float f = (Float)(sign*atof(s)); Float f = (Float)(sign*atof(s));
#if HAVE_ISFINITE #if HAVE_ISFINITE || defined(isfinite)
if (truePrologFlag(PLFLAG_ISO)) { /* iso */ if (truePrologFlag(PLFLAG_ISO)) { /* iso */
if (!isfinite(f)) { if (!isfinite(f)) {
LOCAL_ErrorMessage = "Float overflow while scanning"; LOCAL_ErrorMessage = "Float overflow while scanning";