aboutsummaryrefslogtreecommitdiffstats
path: root/src/ccl.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/ccl.c')
-rw-r--r--src/ccl.c22
1 files changed, 6 insertions, 16 deletions
diff --git a/src/ccl.c b/src/ccl.c
index c33df9e56de..4ddc56a707f 100644
--- a/src/ccl.c
+++ b/src/ccl.c
@@ -862,11 +862,7 @@ struct ccl_prog_stack
862static struct ccl_prog_stack ccl_prog_stack_struct[256]; 862static struct ccl_prog_stack ccl_prog_stack_struct[256];
863 863
864void 864void
865ccl_driver (ccl, source, destination, src_size, dst_size, charset_list) 865ccl_driver (struct ccl_program *ccl, int *source, int *destination, int src_size, int dst_size, Lisp_Object charset_list)
866 struct ccl_program *ccl;
867 int *source, *destination;
868 int src_size, dst_size;
869 Lisp_Object charset_list;
870{ 866{
871 register int *reg = ccl->reg; 867 register int *reg = ccl->reg;
872 register int ic = ccl->ic; 868 register int ic = ccl->ic;
@@ -1795,8 +1791,7 @@ ccl_driver (ccl, source, destination, src_size, dst_size, charset_list)
1795 or nil if CCL contains invalid data. */ 1791 or nil if CCL contains invalid data. */
1796 1792
1797static Lisp_Object 1793static Lisp_Object
1798resolve_symbol_ccl_program (ccl) 1794resolve_symbol_ccl_program (Lisp_Object ccl)
1799 Lisp_Object ccl;
1800{ 1795{
1801 int i, veclen, unresolved = 0; 1796 int i, veclen, unresolved = 0;
1802 Lisp_Object result, contents, val; 1797 Lisp_Object result, contents, val;
@@ -1867,9 +1862,7 @@ resolve_symbol_ccl_program (ccl)
1867 symbols, return Qnil. */ 1862 symbols, return Qnil. */
1868 1863
1869static Lisp_Object 1864static Lisp_Object
1870ccl_get_compiled_code (ccl_prog, idx) 1865ccl_get_compiled_code (Lisp_Object ccl_prog, int *idx)
1871 Lisp_Object ccl_prog;
1872 int *idx;
1873{ 1866{
1874 Lisp_Object val, slot; 1867 Lisp_Object val, slot;
1875 1868
@@ -1910,9 +1903,7 @@ ccl_get_compiled_code (ccl_prog, idx)
1910 1903
1911 If CCL_PROG is nil, we just reset the structure pointed by CCL. */ 1904 If CCL_PROG is nil, we just reset the structure pointed by CCL. */
1912int 1905int
1913setup_ccl_program (ccl, ccl_prog) 1906setup_ccl_program (struct ccl_program *ccl, Lisp_Object ccl_prog)
1914 struct ccl_program *ccl;
1915 Lisp_Object ccl_prog;
1916{ 1907{
1917 int i; 1908 int i;
1918 1909
@@ -1953,8 +1944,7 @@ setup_ccl_program (ccl, ccl_prog)
1953/* Check if CCL is updated or not. If not, re-setup members of CCL. */ 1944/* Check if CCL is updated or not. If not, re-setup members of CCL. */
1954 1945
1955int 1946int
1956check_ccl_update (ccl) 1947check_ccl_update (struct ccl_program *ccl)
1957 struct ccl_program *ccl;
1958{ 1948{
1959 Lisp_Object slot, ccl_prog; 1949 Lisp_Object slot, ccl_prog;
1960 1950
@@ -2315,7 +2305,7 @@ Return index number of the registered map. */)
2315 2305
2316 2306
2317void 2307void
2318syms_of_ccl () 2308syms_of_ccl (void)
2319{ 2309{
2320 staticpro (&Vccl_program_table); 2310 staticpro (&Vccl_program_table);
2321 Vccl_program_table = Fmake_vector (make_number (32), Qnil); 2311 Vccl_program_table = Fmake_vector (make_number (32), Qnil);