aboutsummaryrefslogtreecommitdiffstats
path: root/src/comp.c
diff options
context:
space:
mode:
authorAndrea Corallo2019-11-17 23:23:50 +0100
committerAndrea Corallo2020-01-01 11:38:07 +0100
commit42b08f8a9ada7791c992894e88f648909e1ecc95 (patch)
tree902fa3b7086ce40b8173e4cc2a8b9118786c65b8 /src/comp.c
parent41bfb91f5db878d139d5c0c631c569475018a7c2 (diff)
downloademacs-42b08f8a9ada7791c992894e88f648909e1ecc95.tar.gz
emacs-42b08f8a9ada7791c992894e88f648909e1ecc95.zip
some style nits
Diffstat (limited to 'src/comp.c')
-rw-r--r--src/comp.c38
1 files changed, 19 insertions, 19 deletions
diff --git a/src/comp.c b/src/comp.c
index 251ba242d43..8001580eba2 100644
--- a/src/comp.c
+++ b/src/comp.c
@@ -398,20 +398,21 @@ emit_call (Lisp_Object subr_sym, gcc_jit_type *ret_type, unsigned nargs,
398 nargs, 398 nargs,
399 args); 399 args);
400 } 400 }
401 else { 401 else
402 gcc_jit_lvalue *f_ptr = 402 {
403 gcc_jit_lvalue_access_field (comp.func_relocs, 403 gcc_jit_lvalue *f_ptr =
404 NULL, 404 gcc_jit_lvalue_access_field (comp.func_relocs,
405 (gcc_jit_field *) xmint_pointer (func)); 405 NULL,
406 ICE_IF (!f_ptr, "undeclared function relocation"); 406 (gcc_jit_field *) xmint_pointer (func));
407 emit_comment (format_string ("calling subr: %s", 407 ICE_IF (!f_ptr, "undeclared function relocation");
408 SSDATA (SYMBOL_NAME (subr_sym)))); 408 emit_comment (format_string ("calling subr: %s",
409 return gcc_jit_context_new_call_through_ptr (comp.ctxt, 409 SSDATA (SYMBOL_NAME (subr_sym))));
410 NULL, 410 return gcc_jit_context_new_call_through_ptr (comp.ctxt,
411 gcc_jit_lvalue_as_rvalue (f_ptr), 411 NULL,
412 nargs, 412 gcc_jit_lvalue_as_rvalue (f_ptr),
413 args); 413 nargs,
414 } 414 args);
415 }
415} 416}
416 417
417static gcc_jit_rvalue * 418static gcc_jit_rvalue *
@@ -481,8 +482,7 @@ emit_cast (gcc_jit_type *new_type, gcc_jit_rvalue *obj)
481} 482}
482 483
483/* 484/*
484 Emit the equivalent of 485 Emit the equivalent of:
485
486 (typeof_ptr) ((uintptr) ptr + size_of_ptr_ref * i) 486 (typeof_ptr) ((uintptr) ptr + size_of_ptr_ref * i)
487*/ 487*/
488 488
@@ -1046,8 +1046,8 @@ emit_mvar_val (Lisp_Object mvar)
1046 { 1046 {
1047 if (FIXNUMP (constant)) 1047 if (FIXNUMP (constant))
1048 { 1048 {
1049 /* We can still emit directly objects that are selfcontained in a word 1049 /* We can still emit directly objects that are self-contained in a
1050 (read fixnums). */ 1050 word (read fixnums). */
1051 emit_comment (SSDATA (Fprin1_to_string (constant, Qnil))); 1051 emit_comment (SSDATA (Fprin1_to_string (constant, Qnil)));
1052 gcc_jit_rvalue *word = 1052 gcc_jit_rvalue *word =
1053 gcc_jit_context_new_rvalue_from_ptr (comp.ctxt, 1053 gcc_jit_context_new_rvalue_from_ptr (comp.ctxt,
@@ -1168,7 +1168,7 @@ emit_limple_push_handler (gcc_jit_rvalue *handler, gcc_jit_rvalue *handler_type,
1168 gcc_jit_block *handler_bb, gcc_jit_block *guarded_bb, 1168 gcc_jit_block *handler_bb, gcc_jit_block *guarded_bb,
1169 Lisp_Object clobbered_mvar) 1169 Lisp_Object clobbered_mvar)
1170{ 1170{
1171 /* struct handler *c = push_handler (POP, type); */ 1171 /* struct handler *c = push_handler (POP, type); */
1172 1172
1173 gcc_jit_rvalue *args[] = { handler, handler_type }; 1173 gcc_jit_rvalue *args[] = { handler, handler_type };
1174 gcc_jit_block_add_assignment ( 1174 gcc_jit_block_add_assignment (