From 68472f45a6a441b1436b5949c0384dd57111077c Mon Sep 17 00:00:00 2001 From: Andrea Corallo Date: Fri, 24 May 2019 17:51:16 +0200 Subject: [PATCH] some more ops --- src/comp.c | 19 +++++++++---------- 1 file changed, 9 insertions(+), 10 deletions(-) diff --git a/src/comp.c b/src/comp.c index 4b01a057054..8cb7cbf4ad6 100644 --- a/src/comp.c +++ b/src/comp.c @@ -669,18 +669,17 @@ compile_f (const char *f_name, ptrdiff_t bytestr_length, case Bpoint_min: error ("Bpoint_min\n"); break; - case Bchar_after: - error ("Bchar_after\n"); - break; - case Bfollowing_char: - error ("Bfollowing_char\n"); - break; + + CASE_CALL_NARGS (char_after, 1); + CASE_CALL_NARGS (following_char, 0); + case Bpreceding_char: - error ("Bpreceding_char\n"); - break; - case Bcurrent_column: - error ("Bcurrent_column\n"); + res = jit_emit_call (Fprevious_char, comp.lisp_obj_type, 0, args); + PUSH (gcc_jit_lvalue_as_rvalue (res)); break; + + CASE_CALL_NARGS (current_column, 0); + case Bindent_to: error ("Bindent_to\n"); break; -- 2.39.5