diff 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
line wrap: on
line diff
--- a/src/data.c	Tue Mar 17 12:22:50 2015 +0000
+++ b/src/data.c	Fri Mar 20 13:48:16 2015 +0000
@@ -1517,7 +1517,8 @@
   /* What's the greatest fixnum value seen? In passing, check all the char
      table values are fixnums. */
   CHECK_FIXNUM (XCHAR_TABLE (radix_table)->default_);
-  highest_value = XFIXNUM (XCHAR_TABLE (radix_table)->default_);
+  highest_value = XCHAR_TABLE (radix_table)->default_;
+
   map_char_table (radix_table, &ctr, find_highest_value, &highest_value);
   cclen = XFIXNUM (highest_value) + 1;