Mercurial > emacs

comparison src/ccl.c @ 40656:cdfd4d09b79a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update usage of CHECK_ macros (remove unused second argument).
author Pavel Janík <Pavel@Janik.cz>
date Fri, 02 Nov 2001 20:46:55 +0000
parents 6b389fb978bc
children 174ef035d156
comparison
equal deleted inserted replaced
40655:45453187feeb 40656:cdfd4d09b79a
2054 int i; 2054 int i;
2055 2055
2056 if (setup_ccl_program (&ccl, ccl_prog) < 0) 2056 if (setup_ccl_program (&ccl, ccl_prog) < 0)
2057 error ("Invalid CCL program"); 2057 error ("Invalid CCL program");
2058 2058
2059 CHECK_VECTOR (reg, 1); 2059 CHECK_VECTOR (reg);
2060 if (XVECTOR (reg)->size != 8) 2060 if (XVECTOR (reg)->size != 8)
2061 error ("Length of vector REGISTERS is not 8"); 2061 error ("Length of vector REGISTERS is not 8");
2062 2062
2063 for (i = 0; i < 8; i++) 2063 for (i = 0; i < 8; i++)
2064 ccl.reg[i] = (INTEGERP (XVECTOR (reg)->contents[i]) 2064 ccl.reg[i] = (INTEGERP (XVECTOR (reg)->contents[i])
2112 struct gcpro gcpro1, gcpro2; 2112 struct gcpro gcpro1, gcpro2;
2113 2113
2114 if (setup_ccl_program (&ccl, ccl_prog) < 0) 2114 if (setup_ccl_program (&ccl, ccl_prog) < 0)
2115 error ("Invalid CCL program"); 2115 error ("Invalid CCL program");
2116 2116
2117 CHECK_VECTOR (status, 1); 2117 CHECK_VECTOR (status);
2118 if (XVECTOR (status)->size != 9) 2118 if (XVECTOR (status)->size != 9)
2119 error ("Length of vector STATUS is not 9"); 2119 error ("Length of vector STATUS is not 9");
2120 CHECK_STRING (str, 2); 2120 CHECK_STRING (str);
2121 2121
2122 GCPRO2 (status, str); 2122 GCPRO2 (status, str);
2123 2123
2124 for (i = 0; i < 8; i++) 2124 for (i = 0; i < 8; i++)
2125 { 2125 {
2176 { 2176 {
2177 int len = XVECTOR (Vccl_program_table)->size; 2177 int len = XVECTOR (Vccl_program_table)->size;
2178 int idx; 2178 int idx;
2179 Lisp_Object resolved; 2179 Lisp_Object resolved;
2180 2180
2181 CHECK_SYMBOL (name, 0); 2181 CHECK_SYMBOL (name);
2182 resolved = Qnil; 2182 resolved = Qnil;
2183 if (!NILP (ccl_prog)) 2183 if (!NILP (ccl_prog))
2184 { 2184 {
2185 CHECK_VECTOR (ccl_prog, 1); 2185 CHECK_VECTOR (ccl_prog);
2186 resolved = resolve_symbol_ccl_program (ccl_prog); 2186 resolved = resolve_symbol_ccl_program (ccl_prog);
2187 if (NILP (resolved)) 2187 if (NILP (resolved))
2188 error ("Error in CCL program"); 2188 error ("Error in CCL program");
2189 if (VECTORP (resolved)) 2189 if (VECTORP (resolved))
2190 { 2190 {
2259 { 2259 {
2260 int len = XVECTOR (Vcode_conversion_map_vector)->size; 2260 int len = XVECTOR (Vcode_conversion_map_vector)->size;
2261 int i; 2261 int i;
2262 Lisp_Object index; 2262 Lisp_Object index;
2263 2263
2264 CHECK_SYMBOL (symbol, 0); 2264 CHECK_SYMBOL (symbol);
2265 CHECK_VECTOR (map, 1); 2265 CHECK_VECTOR (map);
2266 2266
2267 for (i = 0; i < len; i++) 2267 for (i = 0; i < len; i++)
2268 { 2268 {
2269 Lisp_Object slot = XVECTOR (Vcode_conversion_map_vector)->contents[i]; 2269 Lisp_Object slot = XVECTOR (Vcode_conversion_map_vector)->contents[i];
2270 2270