* */
int xbt_backtrace_no_malloc(void **array, int size) {
+
+ int i = 0;
+ for(i=0; i < size; i++)
+ array[i] = NULL;
+
struct trace_arg arg = { .array = array, .size = size, .cnt = -1 };
if (size >= 1)
/* to extract the addresses from the backtrace */
char **addrs;
- char buff[256], *p;
+ char buff[256];
/* To read the output of addr2line */
FILE *pipe;
/* build the commandline */
if (stat(xbt_binary_name, &stat_buf)) {
/* Damn. binary not in current dir. We'll have to dig the PATH to find it */
- int i;
-
for (i = 0; environ[i]; i++) {
if (!strncmp("PATH=", environ[i], 5)) {
xbt_dynar_t path = xbt_str_split(environ[i] + 5, ":");
e->bt_strings = xbt_new(char *, 1);
e->bt_strings[0] =
- bprintf("(binary '%s' not found the path)", xbt_binary_name);
+ bprintf("(binary '%s' not found in the PATH)", xbt_binary_name);
free(backtrace_syms);
return;
}
addrs = xbt_new(char *, e->used);
for (i = 0; i < e->used; i++) {
+ char *p;
/* retrieve this address */
XBT_DEBUG("Retrieving address number %d from '%s'", i, backtrace_syms[i]);
snprintf(buff, 256, "%s", strchr(backtrace_syms[i], '[') + 1);
XBT_VERB("Fire a first command: '%s'", cmd);
pipe = popen(cmd, "r");
if (!pipe) {
- XBT_CRITICAL("Cannot fork addr2line to display the backtrace");
- abort();
+ xbt_die("Cannot fork addr2line to display the backtrace");
}
for (i = 0; i < e->used; i++) {
- char *fgets_res;
XBT_DEBUG("Looking for symbol %d, addr = '%s'", i, addrs[i]);
- fgets_res = fgets(line_func, 1024, pipe);
- if (fgets_res == NULL)
- THROWF(system_error, 0,
- "Cannot run fgets to look for symbol %d, addr %s", i,
- addrs[i]);
- line_func[strlen(line_func) - 1] = '\0';
- fgets_res = fgets(line_pos, 1024, pipe);
- if (fgets_res == NULL)
- THROWF(system_error, 0,
- "Cannot run fgets to look for symbol %d, addr %s", i,
- addrs[i]);
- line_pos[strlen(line_pos) - 1] = '\0';
-
- if (strcmp("??", line_func)) {
+ if (fgets(line_func, 1024, pipe)) {
+ line_func[strlen(line_func) - 1] = '\0';
+ } else {
+ XBT_VERB("Cannot run fgets to look for symbol %d, addr %s", i, addrs[i]);
+ strcpy(line_func, "???");
+ }
+ if (fgets(line_pos, 1024, pipe)) {
+ line_pos[strlen(line_pos) - 1] = '\0';
+ } else {
+ XBT_VERB("Cannot run fgets to look for symbol %d, addr %s", i, addrs[i]);
+ strcpy(line_pos, backtrace_syms[i]);
+ }
+
+ if (strcmp("??", line_func) != 0) {
XBT_DEBUG("Found static symbol %s() at %s", line_func, line_pos);
e->bt_strings[i] =
bprintf("** In %s() at %s", line_func, line_pos);
XBT_VERB("Fire a new command: '%s'", subcmd);
subpipe = popen(subcmd, "r");
if (!subpipe) {
- XBT_CRITICAL("Cannot fork addr2line to display the backtrace");
- abort();
+ xbt_die("Cannot fork addr2line to display the backtrace");
+ }
+ if (fgets(line_func, 1024, subpipe)) {
+ line_func[strlen(line_func) - 1] = '\0';
+ } else {
+ XBT_VERB("Cannot read result of subcommand %s", subcmd);
+ strcpy(line_func, "???");
+ }
+ if (fgets(line_pos, 1024, subpipe)) {
+ line_pos[strlen(line_pos) - 1] = '\0';
+ } else {
+ XBT_VERB("Cannot read result of subcommand %s", subcmd);
+ strcpy(line_pos, backtrace_syms[i]);
}
- fgets_res = fgets(line_func, 1024, subpipe);
- if (fgets_res == NULL)
- THROWF(system_error, 0, "Cannot read result of subcommand %s",
- subcmd);
- line_func[strlen(line_func) - 1] = '\0';
- fgets_res = fgets(line_pos, 1024, subpipe);
- if (fgets_res == NULL)
- THROWF(system_error, 0, "Cannot read result of subcommand %s",
- subcmd);
- line_pos[strlen(line_pos) - 1] = '\0';
pclose(subpipe);
free(subcmd);
}