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)) |
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 |
|
|
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; |
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); |
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. */ |
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 |
{ |
{ |