diff options
Diffstat (limited to 'src/ccl.c')
| -rw-r--r-- | src/ccl.c | 22 |
1 files changed, 6 insertions, 16 deletions
| @@ -862,11 +862,7 @@ struct ccl_prog_stack | |||
| 862 | static struct ccl_prog_stack ccl_prog_stack_struct[256]; | 862 | static struct ccl_prog_stack ccl_prog_stack_struct[256]; |
| 863 | 863 | ||
| 864 | void | 864 | void |
| 865 | ccl_driver (ccl, source, destination, src_size, dst_size, charset_list) | 865 | ccl_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 | ||
| 1797 | static Lisp_Object | 1793 | static Lisp_Object |
| 1798 | resolve_symbol_ccl_program (ccl) | 1794 | resolve_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 | ||
| 1869 | static Lisp_Object | 1864 | static Lisp_Object |
| 1870 | ccl_get_compiled_code (ccl_prog, idx) | 1865 | ccl_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. */ |
| 1912 | int | 1905 | int |
| 1913 | setup_ccl_program (ccl, ccl_prog) | 1906 | setup_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 | ||
| 1955 | int | 1946 | int |
| 1956 | check_ccl_update (ccl) | 1947 | check_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 | ||
| 2317 | void | 2307 | void |
| 2318 | syms_of_ccl () | 2308 | syms_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); |