[e70e45] | 1 | /******************************************************************* |
---|
| 2 | * File: omRetur2Info.c |
---|
| 3 | * Purpose: translation of return addr to RetInfo |
---|
| 4 | * Author: obachman (Olaf Bachmann) |
---|
| 5 | * Created: 11/99 |
---|
| 6 | *******************************************************************/ |
---|
| 7 | #include <stdio.h> |
---|
[384936] | 8 | #include <string.h> |
---|
[e70e45] | 9 | |
---|
[9da0b0] | 10 | #ifndef PACKAGE |
---|
[6aee8f] | 11 | #include "omConfig.h" |
---|
[9da0b0] | 12 | #endif |
---|
[e70e45] | 13 | |
---|
| 14 | #ifndef OM_NDEBUG |
---|
[b98efa] | 15 | |
---|
[6aee8f] | 16 | #include "omDerivedConfig.h" |
---|
| 17 | #include "omStructs.h" |
---|
| 18 | #include "omRet2Info.h" |
---|
| 19 | #include "omGetBackTrace.h" |
---|
[e70e45] | 20 | |
---|
| 21 | #ifndef MAXPATHLEN |
---|
| 22 | #define MAXPATHLEN 1024 |
---|
| 23 | #endif |
---|
| 24 | |
---|
[cba516] | 25 | /* define to also print return addresses in (default) |
---|
| 26 | output of omPrintInfo */ |
---|
| 27 | /* #define OM_PRINT_RETURN_ADDRESS */ |
---|
[e70e45] | 28 | static char om_this_prog[MAXPATHLEN] = ""; |
---|
| 29 | |
---|
| 30 | #ifndef OM_MAX_BACKTRACE_DEPTH |
---|
| 31 | #define OM_MAX_BACKTRACE_DEPTH 16 |
---|
| 32 | #endif |
---|
| 33 | |
---|
| 34 | void omInitRet_2_Info(const char* argv0) |
---|
| 35 | { |
---|
[8fee84] | 36 | // char buf[MAXPATHLEN]; |
---|
[e70e45] | 37 | |
---|
[8fee84] | 38 | if (argv0 != NULL) // // && omFindExec(argv0, buf)) |
---|
[e70e45] | 39 | { |
---|
[8fee84] | 40 | strncpy(om_this_prog, argv0, MAXPATHLEN); // // buf); |
---|
[75f460] | 41 | om_this_prog[MAXPATHLEN - 1]= '\0'; |
---|
[e70e45] | 42 | } |
---|
| 43 | } |
---|
| 44 | |
---|
[2c72eb] | 45 | |
---|
[e70e45] | 46 | int omBackTrace_2_RetInfo(void** bt, omRetInfo info, int max) |
---|
| 47 | { |
---|
| 48 | int i=0, j=0, filled = 0; |
---|
| 49 | if (max <= 0 || bt == NULL || info == NULL) return 0; |
---|
| 50 | if (max > OM_MAX_BACKTRACE_DEPTH) max = OM_MAX_BACKTRACE_DEPTH; |
---|
| 51 | memset(info, 0, max*sizeof(omRetInfo_t)); |
---|
| 52 | while (i<max) |
---|
| 53 | { |
---|
| 54 | if (bt[i]) |
---|
| 55 | { |
---|
| 56 | info[j].addr = bt[i]; |
---|
| 57 | j++; |
---|
| 58 | } |
---|
| 59 | i++; |
---|
| 60 | } |
---|
| 61 | if (j == 0) return 0; |
---|
[13fe1b] | 62 | |
---|
[e70e45] | 63 | #if defined(HAVE_POPEN) && defined(OM_PROG_ADDR2LINE) |
---|
| 64 | if (*om_this_prog != '\0') |
---|
| 65 | { |
---|
| 66 | char command[2*MAXPATHLEN + 15 + OM_MAX_BACKTRACE_DEPTH*(2*SIZEOF_VOIDP + 4)]; |
---|
| 67 | FILE *pipe; |
---|
| 68 | int l; |
---|
[13fe1b] | 69 | l = sprintf(command, "%s -s -C -f -e %s", |
---|
[e70e45] | 70 | OM_PROG_ADDR2LINE, om_this_prog); |
---|
| 71 | i=0; |
---|
| 72 | while (i<j) |
---|
| 73 | { |
---|
| 74 | l+=sprintf(&command[l], " %p", info[i].addr); |
---|
| 75 | i++; |
---|
| 76 | } |
---|
[d83977] | 77 | fflush(NULL); |
---|
[e70e45] | 78 | pipe = popen(command, "r"); |
---|
| 79 | if (pipe != NULL) |
---|
| 80 | { |
---|
| 81 | /* An output entry of addr2line looks as follows: |
---|
| 82 | FunctionName |
---|
| 83 | File:Line |
---|
| 84 | */ |
---|
[13fe1b] | 85 | while ((filled < j) && |
---|
[8b4e34a] | 86 | (fscanf(pipe, "%200[^\n]\n%200[^:]:%d\n", info[filled].func, info[filled].file, &(info[filled].line)) == 3)) |
---|
[e70e45] | 87 | { |
---|
| 88 | if (*info[filled].func != '?' && *info[filled].file != '?' && info[filled].line > 0) |
---|
| 89 | filled++; |
---|
| 90 | } |
---|
| 91 | pclose(pipe); |
---|
| 92 | } |
---|
[8291be] | 93 | return filled; |
---|
[e70e45] | 94 | } |
---|
[13fe1b] | 95 | #endif |
---|
[8291be] | 96 | return j; |
---|
[e70e45] | 97 | } |
---|
| 98 | |
---|
| 99 | int omPrintRetInfo(omRetInfo info, int max, FILE* fd, const char* fmt) |
---|
| 100 | { |
---|
| 101 | int i = 0; |
---|
| 102 | if (max <= 0 || info == NULL || fmt == NULL || fd == NULL) return 0; |
---|
| 103 | while (i < max && info[i].addr != NULL) |
---|
| 104 | { |
---|
| 105 | int l = 0; |
---|
| 106 | while (fmt[l] != 0) |
---|
| 107 | { |
---|
| 108 | if (fmt[l] == '%') |
---|
| 109 | { |
---|
| 110 | l++; |
---|
| 111 | if (fmt[l] == 'p') fprintf(fd, "%p", info[i].addr); |
---|
| 112 | else if (fmt[l] == 'f') fprintf(fd, "%-20s", (*info[i].file != '\0' ? info[i].file : "??")); |
---|
| 113 | else if (fmt[l] == 'F') fprintf(fd, "%-20s", (*info[i].func != '\0' ? info[i].func : "??")); |
---|
| 114 | else if (fmt[l] == 'l') fprintf(fd, "%d", info[i].line); |
---|
[13fe1b] | 115 | else if (fmt[l] == 'N') |
---|
[36ee6f] | 116 | { |
---|
| 117 | if (*info[i].func != '\0') |
---|
| 118 | { |
---|
[e6ad6a7] | 119 | char* found = (char*) strchr(info[i].func, '('); |
---|
[36ee6f] | 120 | if (found) *found = '\0'; |
---|
| 121 | fprintf(fd, "%-20s", info[i].func); |
---|
| 122 | if (found) *found = '('; |
---|
| 123 | } |
---|
| 124 | else |
---|
| 125 | fprintf(fd, "%-20s", "??"); |
---|
| 126 | } |
---|
[13fe1b] | 127 | else if (fmt[l] == 'L') |
---|
[e70e45] | 128 | { |
---|
| 129 | int n = fprintf(fd, "%s:%d", (*info[i].func != '\0' ? info[i].file : "??"), info[i].line); |
---|
| 130 | if (n < 20) fprintf(fd, "%*s", 20-n, " "); |
---|
| 131 | } |
---|
| 132 | else if (fmt[l] == 'i') fprintf(fd, "%d", i); |
---|
| 133 | else |
---|
| 134 | { |
---|
| 135 | fputc('%', fd); |
---|
| 136 | l--; |
---|
| 137 | } |
---|
| 138 | } |
---|
| 139 | else |
---|
| 140 | { |
---|
| 141 | fputc(fmt[l], fd); |
---|
| 142 | } |
---|
| 143 | l++; |
---|
| 144 | } |
---|
| 145 | i++; |
---|
| 146 | } |
---|
| 147 | return i; |
---|
| 148 | } |
---|
| 149 | |
---|
| 150 | int omPrintBackTrace(void** bt, int max, FILE* fd) |
---|
| 151 | { |
---|
| 152 | int i; |
---|
[13fe1b] | 153 | |
---|
[e70e45] | 154 | omRetInfo_t info[OM_MAX_BACKTRACE_DEPTH]; |
---|
| 155 | if (max > OM_MAX_BACKTRACE_DEPTH) max = OM_MAX_BACKTRACE_DEPTH; |
---|
[13fe1b] | 156 | |
---|
[e70e45] | 157 | i = omBackTrace_2_RetInfo(bt, info, max); |
---|
[cba516] | 158 | #ifdef OM_PRINT_RETURN_ADDRESS |
---|
[36ee6f] | 159 | return omPrintRetInfo(info, i, fd, " #%i at %L in %N ra=%p\n"); |
---|
[cba516] | 160 | #else |
---|
[36ee6f] | 161 | return omPrintRetInfo(info, i, fd, " #%i at %L in %N\n"); |
---|
[13fe1b] | 162 | #endif |
---|
[e70e45] | 163 | } |
---|
| 164 | |
---|
[cba516] | 165 | int omPrintCurrentBackTraceMax(FILE* fd, int max) |
---|
[e70e45] | 166 | { |
---|
| 167 | int i; |
---|
| 168 | void* bt[OM_MAX_BACKTRACE_DEPTH]; |
---|
[cba516] | 169 | if (max > OM_MAX_BACKTRACE_DEPTH) |
---|
| 170 | max = OM_MAX_BACKTRACE_DEPTH; |
---|
| 171 | if (max <= 0) return 0; |
---|
| 172 | i = omGetBackTrace(bt, 1, max); |
---|
[e70e45] | 173 | return omPrintBackTrace(bt, i, fd); |
---|
| 174 | } |
---|
| 175 | |
---|
| 176 | /************************************************************* |
---|
[13fe1b] | 177 | * |
---|
[e70e45] | 178 | * Various Filters |
---|
| 179 | * |
---|
| 180 | *************************************************************/ |
---|
| 181 | int omFilterRetInfo_i(omRetInfo info, int max, int i) |
---|
| 182 | { |
---|
| 183 | int j=0, k=i; |
---|
[13fe1b] | 184 | |
---|
[e70e45] | 185 | while (k < max) |
---|
| 186 | { |
---|
| 187 | info[j] = info[k]; |
---|
| 188 | j++; |
---|
| 189 | k++; |
---|
| 190 | } |
---|
| 191 | return j; |
---|
| 192 | } |
---|
| 193 | |
---|
| 194 | /************************************************************* |
---|
[13fe1b] | 195 | * |
---|
| 196 | * Low level routines |
---|
[e70e45] | 197 | * |
---|
| 198 | *************************************************************/ |
---|
| 199 | |
---|
[b98efa] | 200 | int _omPrintBackTrace(void** bt, int max, FILE* fd , OM_FLR_DECL) |
---|
[e70e45] | 201 | { |
---|
[c7f9ce] | 202 | #ifndef __OPTIMIZE__ |
---|
[384936] | 203 | int i = 0; |
---|
[13fe1b] | 204 | |
---|
[e70e45] | 205 | omRetInfo_t info[OM_MAX_BACKTRACE_DEPTH]; |
---|
| 206 | if (max > OM_MAX_BACKTRACE_DEPTH) max = OM_MAX_BACKTRACE_DEPTH; |
---|
[384936] | 207 | if (bt != NULL) |
---|
| 208 | { |
---|
| 209 | for (; i<max; i++) |
---|
[fe7bd4] | 210 | { |
---|
| 211 | if (bt[i] == NULL) |
---|
| 212 | { |
---|
| 213 | max = i+1; |
---|
| 214 | break; |
---|
| 215 | } |
---|
| 216 | } |
---|
[e70e45] | 217 | i = omBackTrace_2_RetInfo(bt, info, max); |
---|
[384936] | 218 | } |
---|
[e70e45] | 219 | #ifdef OM_TRACK_RETURN |
---|
| 220 | if (i == 0) |
---|
[13fe1b] | 221 | i = omBackTrace_2_RetInfo(((void*)&r),info, 1); |
---|
[e70e45] | 222 | #endif |
---|
| 223 | #ifndef OM_INTERNAL_DEBUG |
---|
| 224 | if (i > 1) |
---|
| 225 | { |
---|
| 226 | #ifdef OM_TRACK_RETURN |
---|
| 227 | if (r != NULL) |
---|
| 228 | omFilterRetInfo(info, i, addr_i == r); |
---|
| 229 | #endif |
---|
| 230 | #ifdef OM_TRACK_FILE_LINE |
---|
| 231 | if (f != NULL && l > 0) |
---|
| 232 | omFilterRetInfo(info, i, strcmp(f, file_i) == 0 && l + 2 >= line_i && l - 2 <= line_i); |
---|
| 233 | #endif |
---|
| 234 | /* if we have both, use overwrite what we got from return addressse -- |
---|
| 235 | they sometimes are wrong */ |
---|
| 236 | #if defined(OM_TRACK_RETURN) && defined(OM_TRACK_FILE_LINE) |
---|
| 237 | if (r != NULL && info[0].addr == r && l > 0 && f != 0) |
---|
| 238 | { |
---|
| 239 | strcpy(info[0].file, f); |
---|
| 240 | info[0].line = l; |
---|
| 241 | } |
---|
[13fe1b] | 242 | #endif |
---|
[e70e45] | 243 | } |
---|
| 244 | if (i == 0) |
---|
| 245 | { |
---|
| 246 | #endif /* ! OM_INTERNAL_DEBUG */ |
---|
| 247 | |
---|
| 248 | #ifdef OM_TRACK_FILE_LINE |
---|
| 249 | fprintf(fd, " %s:%d", f, l); |
---|
| 250 | #endif |
---|
| 251 | #ifdef OM_TRACK_RETURN |
---|
[f103fb] | 252 | fprintf(fd," ra=%p", r); |
---|
[e70e45] | 253 | #endif |
---|
| 254 | |
---|
| 255 | #ifndef OM_INTERNAL_DEBUG |
---|
| 256 | return 1; |
---|
| 257 | } |
---|
| 258 | else |
---|
| 259 | #endif /* ! OM_INTERNAL_DEBUG */ |
---|
[cba516] | 260 | #ifdef OM_PRINT_RETURN_ADDRESS |
---|
[36ee6f] | 261 | return omPrintRetInfo(info, i, fd, "\n #%i at %L in %N ra=%p"); |
---|
[cba516] | 262 | #else |
---|
[36ee6f] | 263 | return omPrintRetInfo(info, i, fd, "\n #%i at %L in %N"); |
---|
[cba516] | 264 | #endif |
---|
[c7f9ce] | 265 | #else |
---|
| 266 | return 0; |
---|
| 267 | #endif |
---|
[e70e45] | 268 | } |
---|
| 269 | |
---|
[b98efa] | 270 | int _omPrintCurrentBackTrace(FILE* fd , OM_FLR_DECL) |
---|
[e70e45] | 271 | { |
---|
[c7f9ce] | 272 | #ifdef __OPTIMIZE__ |
---|
| 273 | /* does not work without -g */ |
---|
| 274 | return 0; |
---|
| 275 | #else |
---|
[e70e45] | 276 | int i; |
---|
| 277 | void* bt[OM_MAX_BACKTRACE_DEPTH]; |
---|
[13fe1b] | 278 | |
---|
[e70e45] | 279 | i = omGetBackTrace(bt, 1, OM_MAX_BACKTRACE_DEPTH); |
---|
[b98efa] | 280 | return _omPrintBackTrace(bt, i, fd , OM_FLR_VAL); |
---|
[c7f9ce] | 281 | #endif |
---|
[e70e45] | 282 | } |
---|
| 283 | #endif /* ! OM_NDEBUG */ |
---|