X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fbreakpoint.c;h=e45082f8c1a3224627e3a522eb08dc9c79002299;hb=7f0f521aa3f6b45259c5dfd5f7f11adcd1a7cac6;hp=1ad416c627ced953112d9a12fff28916b6ebc28b;hpb=3c65762b927af861c9c8bc416e4cbac9a14ec0c3;p=sbcl.git diff --git a/src/runtime/breakpoint.c b/src/runtime/breakpoint.c index 1ad416c..e45082f 100644 --- a/src/runtime/breakpoint.c +++ b/src/runtime/breakpoint.c @@ -62,7 +62,7 @@ void breakpoint_do_displaced_inst(os_context_t* context, * * -dan 2001.08.09 */ -#if !(defined(hpux) || defined(irix) || defined(__i386__) || defined(alpha)) +#if (defined(sparc) && defined (solaris)) undo_fake_foreign_function_call(context); #endif arch_do_displaced_inst(context, orig_inst); @@ -93,14 +93,14 @@ static lispobj find_code(os_context_t *context) #ifdef __i386__ static lispobj find_code(os_context_t *context) { - lispobj codeptr = - (lispobj)component_ptr_from_pc((lispobj *)(*os_context_pc_addr(context))); - - if (codeptr == 0) { - return NIL; - } else { - return codeptr + OTHER_POINTER_LOWTAG; - } + lispobj codeptr = + (lispobj)component_ptr_from_pc((lispobj *)(*os_context_pc_addr(context))); + + if (codeptr == 0) { + return NIL; + } else { + return codeptr + OTHER_POINTER_LOWTAG; + } } #endif