X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fbreakpoint.c;h=f7f9e90a7bb6525b753e8c265af6f08315d4dd56;hb=5fb561a1daba0b6dbd76f7347d4b0fa4b02494a6;hp=c678192087e4a026f205f161a7d72a151ebc52c6;hpb=f0f8bc6c184e849782fc784230f8e235d3659d5d;p=sbcl.git diff --git a/src/runtime/breakpoint.c b/src/runtime/breakpoint.c index c678192..f7f9e90 100644 --- a/src/runtime/breakpoint.c +++ b/src/runtime/breakpoint.c @@ -115,7 +115,7 @@ static long compute_offset(os_context_t *context, lispobj code) if (pc < code_start) return 0; else { - long offset = pc - code_start; + unsigned long offset = pc - code_start; if (offset >= codeptr->code_size) return 0; else @@ -139,7 +139,7 @@ void handle_breakpoint(os_context_t *context) thread_sigmask(SIG_SETMASK, os_context_sigmask_addr(context), 0); #endif - funcall3(SymbolFunction(HANDLE_BREAKPOINT), + funcall3(StaticSymbolFunction(HANDLE_BREAKPOINT), compute_offset(context, code), code, context_sap); @@ -164,7 +164,7 @@ void *handle_fun_end_breakpoint(os_context_t *context) thread_sigmask(SIG_SETMASK, os_context_sigmask_addr(context), 0); #endif - funcall3(SymbolFunction(HANDLE_BREAKPOINT), + funcall3(StaticSymbolFunction(HANDLE_BREAKPOINT), compute_offset(context, code), code, context_sap); @@ -194,7 +194,7 @@ handle_single_step_trap (os_context_t *context, int kind, int register_offset) thread_sigmask(SIG_SETMASK, os_context_sigmask_addr(context), 0); #endif - funcall2(SymbolFunction(HANDLE_SINGLE_STEP_TRAP), + funcall2(StaticSymbolFunction(HANDLE_SINGLE_STEP_TRAP), make_fixnum(kind), make_fixnum(register_offset));