diff options
Diffstat (limited to '')
| -rw-r--r-- | src/mds-kbdc/call-stack.c | 34 |
1 files changed, 34 insertions, 0 deletions
diff --git a/src/mds-kbdc/call-stack.c b/src/mds-kbdc/call-stack.c index cd77b15..642988a 100644 --- a/src/mds-kbdc/call-stack.c +++ b/src/mds-kbdc/call-stack.c @@ -91,6 +91,40 @@ static size_t calls_ptr = 0; /** + * Add “called from here”-notes + * + * @return Zero on success, -1 on error + */ +int mds_kbdc_call_stack_dump(void) +{ + char* old_pathname = result->pathname; + mds_kbdc_source_code_t* old_source_code = result->source_code; + size_t ptr = calls_ptr, iptr; + mds_kbdc_call_t* restrict call; + mds_kbdc_include_stack_t* restrict includes; + + while (ptr--) + { + call = calls + ptr; + includes = call->include_stack; + iptr = includes->ptr; + result->pathname = iptr ? includes->stack[iptr - 1]->filename : original_pathname; + result->source_code = iptr ? includes->stack[iptr - 1]->source_code : original_source_code; + NEW_ERROR_(result, NOTE, 1, call->tree->loc_line, call->start, call->end, 1, "called from here"); + DUMP_INCLUDE_STACK(iptr); + } + + result->pathname = old_pathname; + result->source_code = old_source_code; + return 0; + fail: + result->pathname = old_pathname; + result->source_code = old_source_code; + return -1; +} + + +/** * Prepare for usage of call-stacks * xo * @param result_ The `result` parameter of root procedure that requires the call-stack |