summaryrefslogtreecommitdiff
path: root/libguile/gc-segment-table.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/gc-segment-table.c')
-rw-r--r--libguile/gc-segment-table.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/gc-segment-table.c b/libguile/gc-segment-table.c
index d627e9c1f..4b809ae4b 100644
--- a/libguile/gc-segment-table.c
+++ b/libguile/gc-segment-table.c
@@ -115,12 +115,14 @@ scm_i_insert_segment (scm_t_heap_segment *seg)
I think this function is too long to be inlined. --hwn
*/
+
int
scm_i_find_heap_segment_containing_object (SCM obj)
{
if (!CELL_P (obj))
return -1;
+ scm_i_find_heap_calls ++;
if ((scm_t_cell *) obj < lowest_cell || (scm_t_cell *) obj >= highest_cell)
return -1;