projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.7.4.7:
[sbcl.git]
/
src
/
runtime
/
breakpoint.c
diff --git
a/src/runtime/breakpoint.c
b/src/runtime/breakpoint.c
index
1ad416c
..
e45082f
100644
(file)
--- 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 */
*
* -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);
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)
{
#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
}
#endif