projects
/
sbcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
0.pre7.58:
[sbcl.git]
/
src
/
runtime
/
breakpoint.c
diff --git
a/src/runtime/breakpoint.c
b/src/runtime/breakpoint.c
index
44d75f9
..
1ad416c
100644
(file)
--- a/
src/runtime/breakpoint.c
+++ b/
src/runtime/breakpoint.c
@@
-75,12
+75,12
@@
static lispobj find_code(os_context_t *context)
lispobj code = *os_context_register_addr(context, reg_CODE);
lispobj header;
lispobj code = *os_context_register_addr(context, reg_CODE);
lispobj header;
- if (lowtagof(code) != OTHER_POINTER_LOWTAG)
+ if (lowtag_of(code) != OTHER_POINTER_LOWTAG)
return NIL;
header = *(lispobj *)(code-OTHER_POINTER_LOWTAG);
return NIL;
header = *(lispobj *)(code-OTHER_POINTER_LOWTAG);
- if (TypeOf(header) == type_CodeHeader)
+ if (widetag_of(header) == CODE_HEADER_WIDETAG)
return code;
else
return code - HeaderValue(header)*sizeof(lispobj);
return code;
else
return code - HeaderValue(header)*sizeof(lispobj);