2056 |
if (setup_ccl_program (&ccl, ccl_prog) < 0) |
if (setup_ccl_program (&ccl, ccl_prog) < 0) |
2057 |
error ("Invalid CCL program"); |
error ("Invalid CCL program"); |
2058 |
|
|
2059 |
CHECK_VECTOR (reg, 1); |
CHECK_VECTOR (reg); |
2060 |
if (XVECTOR (reg)->size != 8) |
if (XVECTOR (reg)->size != 8) |
2061 |
error ("Length of vector REGISTERS is not 8"); |
error ("Length of vector REGISTERS is not 8"); |
2062 |
|
|
2114 |
if (setup_ccl_program (&ccl, ccl_prog) < 0) |
if (setup_ccl_program (&ccl, ccl_prog) < 0) |
2115 |
error ("Invalid CCL program"); |
error ("Invalid CCL program"); |
2116 |
|
|
2117 |
CHECK_VECTOR (status, 1); |
CHECK_VECTOR (status); |
2118 |
if (XVECTOR (status)->size != 9) |
if (XVECTOR (status)->size != 9) |
2119 |
error ("Length of vector STATUS is not 9"); |
error ("Length of vector STATUS is not 9"); |
2120 |
CHECK_STRING (str, 2); |
CHECK_STRING (str); |
2121 |
|
|
2122 |
GCPRO2 (status, str); |
GCPRO2 (status, str); |
2123 |
|
|
2178 |
int idx; |
int idx; |
2179 |
Lisp_Object resolved; |
Lisp_Object resolved; |
2180 |
|
|
2181 |
CHECK_SYMBOL (name, 0); |
CHECK_SYMBOL (name); |
2182 |
resolved = Qnil; |
resolved = Qnil; |
2183 |
if (!NILP (ccl_prog)) |
if (!NILP (ccl_prog)) |
2184 |
{ |
{ |
2185 |
CHECK_VECTOR (ccl_prog, 1); |
CHECK_VECTOR (ccl_prog); |
2186 |
resolved = resolve_symbol_ccl_program (ccl_prog); |
resolved = resolve_symbol_ccl_program (ccl_prog); |
2187 |
if (NILP (resolved)) |
if (NILP (resolved)) |
2188 |
error ("Error in CCL program"); |
error ("Error in CCL program"); |
2261 |
int i; |
int i; |
2262 |
Lisp_Object index; |
Lisp_Object index; |
2263 |
|
|
2264 |
CHECK_SYMBOL (symbol, 0); |
CHECK_SYMBOL (symbol); |
2265 |
CHECK_VECTOR (map, 1); |
CHECK_VECTOR (map); |
2266 |
|
|
2267 |
for (i = 0; i < len; i++) |
for (i = 0; i < len; i++) |
2268 |
{ |
{ |