klish/lub/heap/heap_scan_stack.c

/*
 * Generic stack scanning function
 *
 * This currently only scans the last 32 levels of the current stack.
 */
#ifdef __GNUC__
#include "private.h"
#include "node.h"
/*--------------------------------------------------------- */
void lub_heap_scan_stack(void)
{
	char *start, *end;
#define FRAME_ADDRESS(n)                            \
    {                                               \
        char *fn = __builtin_return_address(n);     \
        if(!fn || (fn > lub_heap_data_start))       \
        {                                           \
            break;                                  \
        }                                           \
        end = __builtin_frame_address(n);           \
    }                                               \

	start = end = __builtin_frame_address(0);

	do {
		FRAME_ADDRESS(0);
		FRAME_ADDRESS(1);
		FRAME_ADDRESS(2);
		FRAME_ADDRESS(3);
		FRAME_ADDRESS(4);
		FRAME_ADDRESS(5);
		FRAME_ADDRESS(6);
		FRAME_ADDRESS(7);
		FRAME_ADDRESS(8);
		FRAME_ADDRESS(9);
		FRAME_ADDRESS(10);
		FRAME_ADDRESS(11);
		FRAME_ADDRESS(12);
		FRAME_ADDRESS(13);
		FRAME_ADDRESS(14);
		FRAME_ADDRESS(15);
		FRAME_ADDRESS(16);
		FRAME_ADDRESS(17);
		FRAME_ADDRESS(18);
		FRAME_ADDRESS(19);
		FRAME_ADDRESS(20);
		FRAME_ADDRESS(21);
		FRAME_ADDRESS(22);
		FRAME_ADDRESS(23);
		FRAME_ADDRESS(24);
		FRAME_ADDRESS(25);
		FRAME_ADDRESS(26);
		FRAME_ADDRESS(27);
		FRAME_ADDRESS(28);
		FRAME_ADDRESS(29);
		FRAME_ADDRESS(30);
		FRAME_ADDRESS(31);
	} while (0);
	/* now scan the memory */
	lub_heap_scan_memory(start, end - start);
}

/*--------------------------------------------------------- */
#else				/* not __GNUC__ */
#warning "Generic stack scanning not implemented for non-GCC compiler..."
#endif				/* not __GNUC__ */