* alloc.c (Fmake_string): Check for out-of-range init.

2bccce07 · Paul Eggert · 81eafe29 · 2bccce07 · 2bccce07
Commit 2bccce07 authored Jun 06, 2011 by Paul Eggert
Hide whitespace changes
Inline Side-by-side

Showing with 6 additions and 2 deletions

src/ChangeLog src/ChangeLog +4 -0

src/alloc.c src/alloc.c +2 -2

No files found.
--- a/src/ChangeLog
+++ b/src/ChangeLog
+2011-06-07  Paul Eggert  <eggert@cs.ucla.edu>
+
+	* alloc.c (Fmake_string): Check for out-of-range init.
+
 2011-06-07  Daniel Colascione  <dan.colascione@gmail.com>

 	* fns.c (Fputhash): Document return value.

--- a/src/alloc.c
+++ b/src/alloc.c
@@ -2186,9 +2186,9 @@ INIT must be an integer that represents a character.  */)
  EMACS_INT nbytes;

  CHECK_NATNUM (length);
-  CHECK_NUMBER (init);
+  CHECK_CHARACTER (init);

-  c = XINT (init);
+  c = XFASTINT (init);
  if (ASCII_CHAR_P (c))
    {
      nbytes = XINT (length);