/[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.28 by camm, Tue Aug 17 18:03:46 2004 UTC revision 1.29 by camm, Wed Aug 25 03:10:14 2004 UTC
# Line 922  parse_number(char *s, int end, int *ep, Line 922  parse_number(char *s, int end, int *ep,
922      i++;      i++;
923    } while (i < end && (d = digitp(s[i], radix)) >= 0);    } while (i < end && (d = digitp(s[i], radix)) >= 0);
924    vs_push(normalize_big_to_object(integer_part));    vs_push(normalize_big_to_object(integer_part));
925    x = make_ratio(vs_top[-2], vs_top[-1]);    x = make_ratio(vs_top[-2], vs_top[-1],0);
926    goto END;    goto END;
927        
928   END:   END:

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

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