aboutsummaryrefslogtreecommitdiffstats
path: root/src/comp.c
diff options
context:
space:
mode:
authorAndrea Corallo2019-09-02 10:33:06 +0200
committerAndrea Corallo2020-01-01 11:37:42 +0100
commite672990d882ce53167b22969eec6b32e96503573 (patch)
tree10ec086fc218229b4c9c3a6af248a65537e1fa4b /src/comp.c
parent211db146a2f475047b38b010ea55c27c08701114 (diff)
downloademacs-e672990d882ce53167b22969eec6b32e96503573.tar.gz
emacs-e672990d882ce53167b22969eec6b32e96503573.zip
typo fixes
Diffstat (limited to 'src/comp.c')
-rw-r--r--src/comp.c24
1 files changed, 12 insertions, 12 deletions
diff --git a/src/comp.c b/src/comp.c
index 58f86322ac1..62b0dd0732e 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -1536,7 +1536,7 @@ emit_integerp (Lisp_Object insn)
1536*/ 1536*/
1537 1537
1538static void 1538static void
1539emit_litteral_string_func (const char *str_name, const char *str) 1539emit_literal_string_func (const char *str_name, const char *str)
1540{ 1540{
1541 gcc_jit_function *f = 1541 gcc_jit_function *f =
1542 gcc_jit_context_new_function (comp.ctxt, NULL, 1542 gcc_jit_context_new_function (comp.ctxt, NULL,
@@ -1626,7 +1626,7 @@ emit_ctxt_code (void)
1626 d_reloc_len), 1626 d_reloc_len),
1627 DATA_RELOC_SYM)); 1627 DATA_RELOC_SYM));
1628 1628
1629 emit_litteral_string_func (TEXT_DATA_RELOC_SYM, d_reloc); 1629 emit_literal_string_func (TEXT_DATA_RELOC_SYM, d_reloc);
1630 1630
1631 /* Imported functions from non Lisp code. */ 1631 /* Imported functions from non Lisp code. */
1632 Lisp_Object f_runtime = declare_runtime_imported (); 1632 Lisp_Object f_runtime = declare_runtime_imported ();
@@ -1670,7 +1670,7 @@ emit_ctxt_code (void)
1670 { 1670 {
1671 ASET (f_reloc_vec, i++, XCAR (f_reloc_list)); 1671 ASET (f_reloc_vec, i++, XCAR (f_reloc_list));
1672 } 1672 }
1673 emit_litteral_string_func (TEXT_IMPORTED_FUNC_RELOC_SYM, 1673 emit_literal_string_func (TEXT_IMPORTED_FUNC_RELOC_SYM,
1674 (SSDATA (Fprin1_to_string (f_reloc_vec, Qnil)))); 1674 (SSDATA (Fprin1_to_string (f_reloc_vec, Qnil))));
1675 1675
1676 gcc_jit_struct *f_reloc_struct = 1676 gcc_jit_struct *f_reloc_struct =
@@ -1688,7 +1688,7 @@ emit_ctxt_code (void)
1688 1688
1689 /* Exported functions info. */ 1689 /* Exported functions info. */
1690 const char *func_list = SSDATA (FUNCALL1 (comp-ctxt-funcs, Vcomp_ctxt)); 1690 const char *func_list = SSDATA (FUNCALL1 (comp-ctxt-funcs, Vcomp_ctxt));
1691 emit_litteral_string_func (TEXT_EXPORTED_FUNC_RELOC_SYM, func_list); 1691 emit_literal_string_func (TEXT_EXPORTED_FUNC_RELOC_SYM, func_list);
1692} 1692}
1693 1693
1694 1694
@@ -2729,10 +2729,10 @@ DEFUN ("comp--init-ctxt", Fcomp__init_ctxt, Scomp__init_ctxt,
2729 sizeof (EMACS_INT), 2729 sizeof (EMACS_INT),
2730 true); 2730 true);
2731 2731
2732 comp.lisp_obj_as_num = gcc_jit_context_new_field (comp.ctxt, 2732 comp.lisp_obj_as_num = gcc_jit_context_new_field (comp.ctxt,
2733 NULL, 2733 NULL,
2734 comp.emacs_int_type, 2734 comp.emacs_int_type,
2735 "num"); 2735 "num");
2736 2736
2737 gcc_jit_field *lisp_obj_fields[] = { comp.lisp_obj_as_ptr, 2737 gcc_jit_field *lisp_obj_fields[] = { comp.lisp_obj_as_ptr,
2738 comp.lisp_obj_as_num }; 2738 comp.lisp_obj_as_num };
@@ -3010,7 +3010,7 @@ prevent_gc (Lisp_Object obj)
3010} 3010}
3011 3011
3012static Lisp_Object 3012static Lisp_Object
3013retrive_litteral_obj (dynlib_handle_ptr handle, const char *str_name) 3013retrive_literal_obj (dynlib_handle_ptr handle, const char *str_name)
3014{ 3014{
3015 comp_litt_str_func f = dynlib_sym (handle, str_name); 3015 comp_litt_str_func f = dynlib_sym (handle, str_name);
3016 eassert (f); 3016 eassert (f);
@@ -3024,7 +3024,7 @@ load_comp_unit (dynlib_handle_ptr handle)
3024 /* Imported data. */ 3024 /* Imported data. */
3025 Lisp_Object *data_relocs = dynlib_sym (handle, DATA_RELOC_SYM); 3025 Lisp_Object *data_relocs = dynlib_sym (handle, DATA_RELOC_SYM);
3026 3026
3027 Lisp_Object d_vec = retrive_litteral_obj (handle, TEXT_DATA_RELOC_SYM); 3027 Lisp_Object d_vec = retrive_literal_obj (handle, TEXT_DATA_RELOC_SYM);
3028 EMACS_UINT d_vec_len = XFIXNUM (Flength (d_vec)); 3028 EMACS_UINT d_vec_len = XFIXNUM (Flength (d_vec));
3029 3029
3030 for (EMACS_UINT i = 0; i < d_vec_len; i++) 3030 for (EMACS_UINT i = 0; i < d_vec_len; i++)
@@ -3037,7 +3037,7 @@ load_comp_unit (dynlib_handle_ptr handle)
3037 Lisp_Object (**f_relocs)(void) = 3037 Lisp_Object (**f_relocs)(void) =
3038 dynlib_sym (handle, IMPORTED_FUNC_RELOC_SYM); 3038 dynlib_sym (handle, IMPORTED_FUNC_RELOC_SYM);
3039 Lisp_Object f_vec = 3039 Lisp_Object f_vec =
3040 retrive_litteral_obj (handle, TEXT_IMPORTED_FUNC_RELOC_SYM); 3040 retrive_literal_obj (handle, TEXT_IMPORTED_FUNC_RELOC_SYM);
3041 EMACS_UINT f_vec_len = XFIXNUM (Flength (f_vec)); 3041 EMACS_UINT f_vec_len = XFIXNUM (Flength (f_vec));
3042 for (EMACS_UINT i = 0; i < f_vec_len; i++) 3042 for (EMACS_UINT i = 0; i < f_vec_len; i++)
3043 { 3043 {
@@ -3079,7 +3079,7 @@ load_comp_unit (dynlib_handle_ptr handle)
3079 } 3079 }
3080 3080
3081 /* Exported functions. */ 3081 /* Exported functions. */
3082 Lisp_Object func_list = retrive_litteral_obj (handle, TEXT_EXPORTED_FUNC_RELOC_SYM); 3082 Lisp_Object func_list = retrive_literal_obj (handle, TEXT_EXPORTED_FUNC_RELOC_SYM);
3083 3083
3084 while (func_list) 3084 while (func_list)
3085 { 3085 {