comparison src/data.c @ 5873:5a311f1f46aa

Don't extract a fixnum value unnecessarily, thank you Robert Delius Royar 2015-03-20 Aidan Kehoe <kehoea@parhasard.net> * data.c (build_fixnum_to_char_map): Whoops, highest_value is a Lisp_Object, no need to extract the fixnum from radix_table->default_ when initialising it. Thank you Robert Delius Royar, Uwe Brauer, and the union build.
author Aidan Kehoe <kehoea@parhasard.net>
date Fri, 20 Mar 2015 13:48:16 +0000
parents 58e72e27fb81
children 0cebf04c18b5
comparison
equal deleted inserted replaced
5872:f9e59cd39a9a 5873:5a311f1f46aa
1515 Ibyte *data; 1515 Ibyte *data;
1516 1516
1517 /* What's the greatest fixnum value seen? In passing, check all the char 1517 /* What's the greatest fixnum value seen? In passing, check all the char
1518 table values are fixnums. */ 1518 table values are fixnums. */
1519 CHECK_FIXNUM (XCHAR_TABLE (radix_table)->default_); 1519 CHECK_FIXNUM (XCHAR_TABLE (radix_table)->default_);
1520 highest_value = XFIXNUM (XCHAR_TABLE (radix_table)->default_); 1520 highest_value = XCHAR_TABLE (radix_table)->default_;
1521
1521 map_char_table (radix_table, &ctr, find_highest_value, &highest_value); 1522 map_char_table (radix_table, &ctr, find_highest_value, &highest_value);
1522 cclen = XFIXNUM (highest_value) + 1; 1523 cclen = XFIXNUM (highest_value) + 1;
1523 1524
1524 cctable = malloc (sizeof (Ichar) * cclen); 1525 cctable = malloc (sizeof (Ichar) * cclen);
1525 if (cctable == NULL) 1526 if (cctable == NULL)