X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgencgc.c;h=8619da0f747a3d39ddf176fb78ef862c77992a43;hb=5dc28680e9cb2d598da02aed512aa49ea81fdade;hp=948ac4822f463debff75daefeea96de281b42d3e;hpb=cea4896b2482b7b2b429c1631d774b4cfbc0efba;p=sbcl.git diff --git a/src/runtime/gencgc.c b/src/runtime/gencgc.c index 948ac48..8619da0 100644 --- a/src/runtime/gencgc.c +++ b/src/runtime/gencgc.c @@ -6315,8 +6315,10 @@ clear_auto_gc_trigger(void) auto_gc_trigger = 0; } -/* Find the code object for the given pc, or return NULL on failure. */ -lispobj* +/* Find the code object for the given pc, or return NULL on failure. + * + * FIXME: PC shouldn't be lispobj*, should it? Maybe void*? */ +lispobj * component_ptr_from_pc(lispobj *pc) { lispobj *object = NULL;