error.c revision 1
1N/A#pragma prototyped
1N/A * level >= error_info.core!=0 dumps core
1N/A#define extern extern __EXPORT__
1N/A int breakpoint;
1N/A case OPT_CATALOG:
1N/A case OPT_LIBRARY:
1N/A if ((error_state.match || (error_state.match = newof(0, regex_t, 1, 0))) && regcomp(error_state.match, v, REG_EXTENDED|REG_LENIENT))
1N/A case OPT_PREFIX:
1N/A case OPT_SYSTEM:
1N/A#define CONTEXT(f,p) (((f)&ERROR_PUSH)?((Error_context_t*)&(p)->context->context):((Error_context_t*)(p)))
1N/A sfprintf(sp, ": \"%s\", %s %d", cp->file, ERROR_translate(NiL, NiL, ast.id, "line"), cp->line);
1N/Aerror_break(void)
1N/A#if !_PACKAGE_astsa
1N/A if (level < error_info.trace || (flags & ERROR_LIBRARY) && !(((error_info.set | error_info.flags) ^ error_info.clear) & ERROR_LIBRARY) || level < 0 && error_info.mask && !(error_info.mask & (1<<(-level - 1))))
1N/A#if !_PACKAGE_astsa
1N/A sfprintf(stkstd, " %05lu.%05lu.%05lu ", d - error_info.time, (unsigned long)us.tms_utime, (unsigned long)us.tms_stime);
1N/A case ERROR_WARNING:
1N/A case ERROR_PANIC:
1N/A if (level >= error_state.breakpoint && error_state.breakpoint && (!error_state.match || !regexec(error_state.match, s ? s : format, 0, NiL, 0)) && (!error_state.count || !--error_state.count))
1N/A error_break();
1N/A freecontext = p;
1N/A p = _error_infop_;
1N/A if (p = freecontext)
1N/A *p = *_error_infop_;
1N/A _error_infop_ = p;