diff options
| author | Andrea Corallo <akrl@sdf.org> | 2019-11-24 15:07:54 +0100 |
|---|---|---|
| committer | Andrea Corallo <akrl@sdf.org> | 2020-01-01 11:38:09 +0100 |
| commit | 960aa0c7985f6c61a26f99653c6e9ae9369e944e (patch) | |
| tree | 902b3aea69205d8b80dffdec10fd8db7bd3e7dbe /src/comp.c | |
| parent | c039822082983d6618b6e06c73a31cf6b63467cc (diff) | |
| download | emacs-960aa0c7985f6c61a26f99653c6e9ae9369e944e.tar.gz emacs-960aa0c7985f6c61a26f99653c6e9ae9369e944e.tar.bz2 emacs-960aa0c7985f6c61a26f99653c6e9ae9369e944e.zip | |
review two slot names in comp-func
Diffstat (limited to 'src/comp.c')
| -rw-r--r-- | src/comp.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/comp.c b/src/comp.c index e7b8a044252..cbc91758fa7 100644 --- a/src/comp.c +++ b/src/comp.c @@ -2739,7 +2739,7 @@ static void declare_function (Lisp_Object func) { gcc_jit_function *gcc_func; - char *c_name = SSDATA (CALL1I (comp-func-c-func-name, func)); + char *c_name = SSDATA (CALL1I (comp-func-c-name, func)); Lisp_Object args = CALL1I (comp-func-args, func); bool nargs = (CALL1I (comp-nargs-p, args)); USE_SAFE_ALLOCA; @@ -2784,7 +2784,7 @@ declare_function (Lisp_Object func) c_name, 2, param, 0); } - Fputhash (CALL1I (comp-func-symbol-name, func), + Fputhash (CALL1I (comp-func-name, func), make_mint_ptr (gcc_func), comp.exported_funcs_h); @@ -2797,7 +2797,7 @@ compile_function (Lisp_Object func) USE_SAFE_ALLOCA; EMACS_INT frame_size = XFIXNUM (CALL1I (comp-func-frame-size, func)); - comp.func = xmint_pointer (Fgethash (CALL1I (comp-func-symbol-name, func), + comp.func = xmint_pointer (Fgethash (CALL1I (comp-func-name, func), comp.exported_funcs_h, Qnil)); gcc_jit_lvalue *frame_array = @@ -2883,7 +2883,7 @@ compile_function (Lisp_Object func) if (err) xsignal3 (Qnative_ice, build_string ("failing to compile function"), - CALL1I (comp-func-symbol-name, func), + CALL1I (comp-func-name, func), build_string (err)); SAFE_FREE (); |