/[gcl]/gcl/o/read.d
ViewVC logotype

Diff of /gcl/o/read.d

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by camm, Wed Aug 25 03:10:14 2004 UTC revision 1.30 by camm, Sat Nov 27 22:19:35 2004 UTC
# Line 25  Foundation, 675 Mass Ave, Cambridge, MA Line 25  Foundation, 675 Mass Ave, Cambridge, MA
25  #define NEED_ISFINITE  #define NEED_ISFINITE
26  #include "include.h"  #include "include.h"
27  #include <string.h>  #include <string.h>
28    #include "num_include.h"
29    
30  static object  static object
31  current_readtable(void);  current_readtable(void);
# Line 725  parse_number(char *s, int end, int *ep, Line 726  parse_number(char *s, int end, int *ep,
726    
727    j=i;    j=i;
728    
729  #define MOST_POSITIVE_FIX (((unsigned int) (~0) ) /2)  /* #define MOST_POSITIVE_FIX (((unsigned int) (~0) ) /2) */
730    /*FIXME 64!!!*/
731  #define TEN_EXPT_9 1000000000  #define TEN_EXPT_9 1000000000
732        
733    if (radix == 10 && TEN_EXPT_9 <MOST_POSITIVE_FIX ) {    if (radix == 10 && TEN_EXPT_9 <MOST_POSITIVE_FIX ) {

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26