Mercurial > emacs

comparison src/data.c @ 31829:43566b0aec59

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Avoid some more compiler warnings.
author Gerd Moellmann <gerd@gnu.org>
date Thu, 21 Sep 2000 20:54:57 +0000
parents b600a31684db
children f8c7b5b9fd2f
comparison
equal deleted inserted replaced
31828:c6cdd9deac21 31829:43566b0aec59
1748 return (val & (1 << (idxval % BITS_PER_CHAR)) ? Qt : Qnil); 1748 return (val & (1 << (idxval % BITS_PER_CHAR)) ? Qt : Qnil);
1749 } 1749 }
1750 else if (CHAR_TABLE_P (array)) 1750 else if (CHAR_TABLE_P (array))
1751 { 1751 {
1752 Lisp_Object val; 1752 Lisp_Object val;
1753
1754 val = Qnil;
1753 1755
1754 if (idxval < 0) 1756 if (idxval < 0)
1755 args_out_of_range (array, idx); 1757 args_out_of_range (array, idx);
1756 if (idxval < CHAR_TABLE_ORDINARY_SLOTS) 1758 if (idxval < CHAR_TABLE_ORDINARY_SLOTS)
1757 { 1759 {
1819 return val; 1821 return val;
1820 } 1822 }
1821 } 1823 }
1822 else 1824 else
1823 { 1825 {
1824 int size; 1826 int size = 0;
1825 if (VECTORP (array)) 1827 if (VECTORP (array))
1826 size = XVECTOR (array)->size; 1828 size = XVECTOR (array)->size;
1827 else if (COMPILEDP (array)) 1829 else if (COMPILEDP (array))
1828 size = XVECTOR (array)->size & PSEUDOVECTOR_SIZE_MASK; 1830 size = XVECTOR (array)->size & PSEUDOVECTOR_SIZE_MASK;
1829 else 1831 else
2008 Lisp_Object 2010 Lisp_Object
2009 arithcompare (num1, num2, comparison) 2011 arithcompare (num1, num2, comparison)
2010 Lisp_Object num1, num2; 2012 Lisp_Object num1, num2;
2011 enum comparison comparison; 2013 enum comparison comparison;
2012 { 2014 {
2013 double f1, f2; 2015 double f1 = 0, f2 = 0;
2014 int floatp = 0; 2016 int floatp = 0;
2015 2017
2016 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num1, 0); 2018 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num1, 0);
2017 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num2, 0); 2019 CHECK_NUMBER_OR_FLOAT_COERCE_MARKER (num2, 0);
2018 2020