diff options
| author | Andrea Corallo | 2019-08-16 08:51:02 +0200 |
|---|---|---|
| committer | Andrea Corallo | 2020-01-01 11:34:01 +0100 |
| commit | 281d3a7aadefb673917bc585224c9bf7dae449e6 (patch) | |
| tree | efe0565ca0e089b95f91b8a2ff6afcc2dfd14b7a /src/comp.c | |
| parent | 291531a7e46edcf52f49e193114e818c111d7af6 (diff) | |
| download | emacs-281d3a7aadefb673917bc585224c9bf7dae449e6.tar.gz emacs-281d3a7aadefb673917bc585224c9bf7dae449e6.zip | |
some renaming
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 18 |
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 | ||
| 341 | static gcc_jit_rvalue * | 341 | static gcc_jit_rvalue * |
| 342 | emit_call_ref (const char *f_name, unsigned nargs, | 342 | emit_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 | ||
| 1050 | static gcc_jit_rvalue * | 1050 | static gcc_jit_rvalue * |
| 1051 | emit_limple_call (Lisp_Object args) | 1051 | emit_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 | ||
| 1070 | static gcc_jit_rvalue * | 1070 | static gcc_jit_rvalue * |
| 1071 | emit_limple_call_ref (Lisp_Object args) | 1071 | emit_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 | ||