aboutsummaryrefslogtreecommitdiffstats
path: root/src/comp.c
diff options
context:
space:
mode:
authorAndrea Corallo2019-08-16 08:51:02 +0200
committerAndrea Corallo2020-01-01 11:34:01 +0100
commit281d3a7aadefb673917bc585224c9bf7dae449e6 (patch)
treeefe0565ca0e089b95f91b8a2ff6afcc2dfd14b7a /src/comp.c
parent291531a7e46edcf52f49e193114e818c111d7af6 (diff)
downloademacs-281d3a7aadefb673917bc585224c9bf7dae449e6.tar.gz
emacs-281d3a7aadefb673917bc585224c9bf7dae449e6.zip
some renaming
Diffstat (limited to 'src/comp.c')
-rw-r--r--src/comp.c18
1 files changed, 9 insertions, 9 deletions
diff --git a/src/comp.c b/src/comp.c
index e1ffcf94ec4..95bfb5d561b 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -340,7 +340,7 @@ emit_call (const char *f_name, gcc_jit_type *ret_type, unsigned nargs,
340 340
341static gcc_jit_rvalue * 341static gcc_jit_rvalue *
342emit_call_ref (const char *f_name, unsigned nargs, 342emit_call_ref (const char *f_name, unsigned nargs,
343 gcc_jit_lvalue *base_arg) 343 gcc_jit_lvalue *base_arg)
344{ 344{
345 gcc_jit_rvalue *args[] = 345 gcc_jit_rvalue *args[] =
346 { gcc_jit_context_new_rvalue_from_int(comp.ctxt, 346 { gcc_jit_context_new_rvalue_from_int(comp.ctxt,
@@ -1048,33 +1048,33 @@ emit_simple_limple_call_void_ret (Lisp_Object args)
1048/* Entry point to dispatch emitting (call fun ...). */ 1048/* Entry point to dispatch emitting (call fun ...). */
1049 1049
1050static gcc_jit_rvalue * 1050static gcc_jit_rvalue *
1051emit_limple_call (Lisp_Object args) 1051emit_limple_call (Lisp_Object insn)
1052{ 1052{
1053 Lisp_Object callee_sym = FIRST (args); 1053 Lisp_Object callee_sym = FIRST (insn);
1054 char *callee = (char *) SDATA (SYMBOL_NAME (callee_sym)); 1054 char *callee = (char *) SDATA (SYMBOL_NAME (callee_sym));
1055 Lisp_Object emitter = Fgethash (callee_sym, comp.emitter_dispatcher, Qnil); 1055 Lisp_Object emitter = Fgethash (callee_sym, comp.emitter_dispatcher, Qnil);
1056 1056
1057 if (!NILP (emitter)) 1057 if (!NILP (emitter))
1058 { 1058 {
1059 gcc_jit_rvalue * (* emitter_ptr) (Lisp_Object) = xmint_pointer (emitter); 1059 gcc_jit_rvalue * (* emitter_ptr) (Lisp_Object) = xmint_pointer (emitter);
1060 return emitter_ptr (args); 1060 return emitter_ptr (insn);
1061 } 1061 }
1062 else if (callee[0] == 'F') 1062 else if (callee[0] == 'F')
1063 { 1063 {
1064 return emit_simple_limple_call_lisp_ret (args); 1064 return emit_simple_limple_call_lisp_ret (insn);
1065 } 1065 }
1066 1066
1067 error ("LIMPLE call is inconsistent"); 1067 error ("LIMPLE call is inconsistent");
1068} 1068}
1069 1069
1070static gcc_jit_rvalue * 1070static gcc_jit_rvalue *
1071emit_limple_call_ref (Lisp_Object args) 1071emit_limple_call_ref (Lisp_Object insn)
1072{ 1072{
1073 /* Ex: (callref Fplus 2 0). */ 1073 /* Ex: (callref Fplus 2 0). */
1074 1074
1075 char *callee = (char *) SDATA (SYMBOL_NAME (FIRST (args))); 1075 char *callee = (char *) SDATA (SYMBOL_NAME (FIRST (insn)));
1076 EMACS_UINT nargs = XFIXNUM (SECOND (args)); 1076 EMACS_UINT nargs = XFIXNUM (SECOND (insn));
1077 EMACS_UINT base_ptr = XFIXNUM (THIRD (args)); 1077 EMACS_UINT base_ptr = XFIXNUM (THIRD (insn));
1078 return emit_call_ref (callee, nargs, comp.frame[base_ptr]); 1078 return emit_call_ref (callee, nargs, comp.frame[base_ptr]);
1079} 1079}
1080 1080