Mercurial > hg > xemacs-beta

comparison src/lread.c @ 5909:d138e600aa3a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Placate the C++ compiler, read_rational(). src/ChangeLog addition: 2015-05-09 Aidan Kehoe <kehoea@parhasard.net> * lread.c (read_rational): Cast the call to memchr() here to placate the C++ compiler.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 09 May 2015 01:23:45 +0100
parents 6174848f3e6c
children 1152e0091f8c
comparison
equal deleted inserted replaced
5908:6174848f3e6c 5909:d138e600aa3a
2071 Bytecount len = read_atom_0 (readcharfun, -1, &saw_a_backslash); 2071 Bytecount len = read_atom_0 (readcharfun, -1, &saw_a_backslash);
2072 Lisp_Object num = Qnil, denom = Qzero; 2072 Lisp_Object num = Qnil, denom = Qzero;
2073 2073
2074 buf_ptr = resizing_buffer_stream_ptr (XLSTREAM (Vread_buffer_stream)); 2074 buf_ptr = resizing_buffer_stream_ptr (XLSTREAM (Vread_buffer_stream));
2075 2075
2076 if ((slash = memchr (buf_ptr, '/', len)) == NULL) 2076 if ((slash = (Ibyte *) memchr (buf_ptr, '/', len)) == NULL)
2077 { 2077 {
2078 /* Can't be a ratio, parse as as an integer. */ 2078 /* Can't be a ratio, parse as as an integer. */
2079 return parse_integer (buf_ptr, &buf_end, len, base, 0, Qnil); 2079 return parse_integer (buf_ptr, &buf_end, len, base, 0, Qnil);
2080 } 2080 }
2081 2081