/[emacs]/emacs/src/alloc.c
ViewVC logotype

Diff of /emacs/src/alloc.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.253 by miles, Sun Oct 21 09:51:56 2001 UTC revision 1.254 by pj, Fri Nov 2 20:15:51 2001 UTC
# Line 1668  Both LENGTH and INIT must be numbers.  * Line 1668  Both LENGTH and INIT must be numbers.  *
1668    register unsigned char *p, *end;    register unsigned char *p, *end;
1669    int c, nbytes;    int c, nbytes;
1670    
1671    CHECK_NATNUM (length, 0);    CHECK_NATNUM (length);
1672    CHECK_NUMBER (init, 1);    CHECK_NUMBER (init);
1673    
1674    c = XINT (init);    c = XINT (init);
1675    if (SINGLE_BYTE_CHAR_P (c))    if (SINGLE_BYTE_CHAR_P (c))
# Line 1713  LENGTH must be a number.  INIT matters o Line 1713  LENGTH must be a number.  INIT matters o
1713    int real_init, i;    int real_init, i;
1714    int length_in_chars, length_in_elts, bits_per_value;    int length_in_chars, length_in_elts, bits_per_value;
1715    
1716    CHECK_NATNUM (length, 0);    CHECK_NATNUM (length);
1717    
1718    bits_per_value = sizeof (EMACS_INT) * BITS_PER_CHAR;    bits_per_value = sizeof (EMACS_INT) * BITS_PER_CHAR;
1719    
# Line 2157  DEFUN ("make-list", Fmake_list, Smake_li Line 2157  DEFUN ("make-list", Fmake_list, Smake_li
2157    register Lisp_Object val;    register Lisp_Object val;
2158    register int size;    register int size;
2159    
2160    CHECK_NATNUM (length, 0);    CHECK_NATNUM (length);
2161    size = XFASTINT (length);    size = XFASTINT (length);
2162    
2163    val = Qnil;    val = Qnil;
# Line 2347  See also the function `vector'.  */) Line 2347  See also the function `vector'.  */)
2347    register int index;    register int index;
2348    register struct Lisp_Vector *p;    register struct Lisp_Vector *p;
2349    
2350    CHECK_NATNUM (length, 0);    CHECK_NATNUM (length);
2351    sizei = XFASTINT (length);    sizei = XFASTINT (length);
2352    
2353    p = allocate_vector (sizei);    p = allocate_vector (sizei);
# Line 2369  The property's value should be an intege Line 2369  The property's value should be an intege
2369  {  {
2370    Lisp_Object vector;    Lisp_Object vector;
2371    Lisp_Object n;    Lisp_Object n;
2372    CHECK_SYMBOL (purpose, 1);    CHECK_SYMBOL (purpose);
2373    n = Fget (purpose, Qchar_table_extra_slots);    n = Fget (purpose, Qchar_table_extra_slots);
2374    CHECK_NUMBER (n, 0);    CHECK_NUMBER (n);
2375    if (XINT (n) < 0 || XINT (n) > 10)    if (XINT (n) < 0 || XINT (n) > 10)
2376      args_out_of_range (n, Qnil);      args_out_of_range (n, Qnil);
2377    /* Add 2 to the size for the defalt and parent slots.  */    /* Add 2 to the size for the defalt and parent slots.  */
# Line 2521  Its value and function definition are vo Line 2521  Its value and function definition are vo
2521    register Lisp_Object val;    register Lisp_Object val;
2522    register struct Lisp_Symbol *p;    register struct Lisp_Symbol *p;
2523    
2524    CHECK_STRING (name, 0);    CHECK_STRING (name);
2525    
2526    if (symbol_free_list)    if (symbol_free_list)
2527      {      {

Legend:
Removed from v.1.253  
changed lines
  Added in v.1.254

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26