[e70e45] | 1 | /******************************************************************* |
---|
| 2 | * File: omRetur2Info.c |
---|
| 3 | * Purpose: translation of return addr to RetInfo |
---|
| 4 | * Author: obachman (Olaf Bachmann) |
---|
| 5 | * Created: 11/99 |
---|
[341696] | 6 | * Version: $Id$ |
---|
[e70e45] | 7 | *******************************************************************/ |
---|
| 8 | #include <stdio.h> |
---|
[384936] | 9 | #include <string.h> |
---|
[e70e45] | 10 | |
---|
[b98efa] | 11 | #ifdef HAVE_CONFIG_H |
---|
[599326] | 12 | #include <omalloc/omConfig.h> |
---|
[b98efa] | 13 | #endif |
---|
[e70e45] | 14 | |
---|
| 15 | #ifndef OM_NDEBUG |
---|
[b98efa] | 16 | |
---|
[599326] | 17 | #include <omalloc/omDerivedConfig.h> |
---|
| 18 | #include <omalloc/omStructs.h> |
---|
| 19 | #include <omalloc/omRet2Info.h> |
---|
| 20 | #include <omalloc/omGetBackTrace.h> |
---|
[e70e45] | 21 | |
---|
| 22 | #ifndef MAXPATHLEN |
---|
| 23 | #define MAXPATHLEN 1024 |
---|
| 24 | #endif |
---|
| 25 | |
---|
[cba516] | 26 | /* define to also print return addresses in (default) |
---|
| 27 | output of omPrintInfo */ |
---|
| 28 | /* #define OM_PRINT_RETURN_ADDRESS */ |
---|
[e70e45] | 29 | static char om_this_prog[MAXPATHLEN] = ""; |
---|
| 30 | |
---|
| 31 | #ifndef OM_MAX_BACKTRACE_DEPTH |
---|
| 32 | #define OM_MAX_BACKTRACE_DEPTH 16 |
---|
| 33 | #endif |
---|
| 34 | |
---|
| 35 | void omInitRet_2_Info(const char* argv0) |
---|
| 36 | { |
---|
[8fee84] | 37 | // char buf[MAXPATHLEN]; |
---|
[e70e45] | 38 | |
---|
[8fee84] | 39 | if (argv0 != NULL) // // && omFindExec(argv0, buf)) |
---|
[e70e45] | 40 | { |
---|
[8fee84] | 41 | strncpy(om_this_prog, argv0, MAXPATHLEN); // // buf); |
---|
| 42 | om_this_prog[MAXPATHLEN - 1]= '\0'; |
---|
[e70e45] | 43 | } |
---|
| 44 | } |
---|
| 45 | |
---|
[2c72eb] | 46 | |
---|
[e70e45] | 47 | int omBackTrace_2_RetInfo(void** bt, omRetInfo info, int max) |
---|
| 48 | { |
---|
| 49 | int i=0, j=0, filled = 0; |
---|
| 50 | if (max <= 0 || bt == NULL || info == NULL) return 0; |
---|
| 51 | if (max > OM_MAX_BACKTRACE_DEPTH) max = OM_MAX_BACKTRACE_DEPTH; |
---|
| 52 | memset(info, 0, max*sizeof(omRetInfo_t)); |
---|
| 53 | while (i<max) |
---|
| 54 | { |
---|
| 55 | if (bt[i]) |
---|
| 56 | { |
---|
| 57 | info[j].addr = bt[i]; |
---|
| 58 | j++; |
---|
| 59 | } |
---|
| 60 | i++; |
---|
| 61 | } |
---|
| 62 | if (j == 0) return 0; |
---|
[13fe1b] | 63 | |
---|
[e70e45] | 64 | #if defined(HAVE_POPEN) && defined(OM_PROG_ADDR2LINE) |
---|
| 65 | if (*om_this_prog != '\0') |
---|
| 66 | { |
---|
| 67 | char command[2*MAXPATHLEN + 15 + OM_MAX_BACKTRACE_DEPTH*(2*SIZEOF_VOIDP + 4)]; |
---|
| 68 | FILE *pipe; |
---|
| 69 | int l; |
---|
[13fe1b] | 70 | l = sprintf(command, "%s -s -C -f -e %s", |
---|
[e70e45] | 71 | OM_PROG_ADDR2LINE, om_this_prog); |
---|
| 72 | i=0; |
---|
| 73 | while (i<j) |
---|
| 74 | { |
---|
| 75 | l+=sprintf(&command[l], " %p", info[i].addr); |
---|
| 76 | i++; |
---|
| 77 | } |
---|
[d83977] | 78 | fflush(NULL); |
---|
[e70e45] | 79 | pipe = popen(command, "r"); |
---|
| 80 | if (pipe != NULL) |
---|
| 81 | { |
---|
| 82 | /* An output entry of addr2line looks as follows: |
---|
| 83 | FunctionName |
---|
| 84 | File:Line |
---|
| 85 | */ |
---|
[13fe1b] | 86 | while ((filled < j) && |
---|
[8b4e34a] | 87 | (fscanf(pipe, "%200[^\n]\n%200[^:]:%d\n", info[filled].func, info[filled].file, &(info[filled].line)) == 3)) |
---|
[e70e45] | 88 | { |
---|
| 89 | if (*info[filled].func != '?' && *info[filled].file != '?' && info[filled].line > 0) |
---|
| 90 | filled++; |
---|
| 91 | } |
---|
| 92 | pclose(pipe); |
---|
| 93 | } |
---|
| 94 | } |
---|
[13fe1b] | 95 | #endif |
---|
[e70e45] | 96 | return filled; |
---|
| 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 | { |
---|
[384936] | 202 | int i = 0; |
---|
[13fe1b] | 203 | |
---|
[e70e45] | 204 | omRetInfo_t info[OM_MAX_BACKTRACE_DEPTH]; |
---|
| 205 | if (max > OM_MAX_BACKTRACE_DEPTH) max = OM_MAX_BACKTRACE_DEPTH; |
---|
[384936] | 206 | if (bt != NULL) |
---|
| 207 | { |
---|
| 208 | for (; i<max; i++) |
---|
[fe7bd4] | 209 | { |
---|
| 210 | if (bt[i] == NULL) |
---|
| 211 | { |
---|
| 212 | max = i+1; |
---|
| 213 | break; |
---|
| 214 | } |
---|
| 215 | } |
---|
[e70e45] | 216 | i = omBackTrace_2_RetInfo(bt, info, max); |
---|
[384936] | 217 | } |
---|
[e70e45] | 218 | #ifdef OM_TRACK_RETURN |
---|
| 219 | if (i == 0) |
---|
[13fe1b] | 220 | i = omBackTrace_2_RetInfo(((void*)&r),info, 1); |
---|
[e70e45] | 221 | #endif |
---|
| 222 | #ifndef OM_INTERNAL_DEBUG |
---|
| 223 | if (i > 1) |
---|
| 224 | { |
---|
| 225 | #ifdef OM_TRACK_RETURN |
---|
| 226 | if (r != NULL) |
---|
| 227 | omFilterRetInfo(info, i, addr_i == r); |
---|
| 228 | #endif |
---|
| 229 | #ifdef OM_TRACK_FILE_LINE |
---|
| 230 | if (f != NULL && l > 0) |
---|
| 231 | omFilterRetInfo(info, i, strcmp(f, file_i) == 0 && l + 2 >= line_i && l - 2 <= line_i); |
---|
| 232 | #endif |
---|
| 233 | /* if we have both, use overwrite what we got from return addressse -- |
---|
| 234 | they sometimes are wrong */ |
---|
| 235 | #if defined(OM_TRACK_RETURN) && defined(OM_TRACK_FILE_LINE) |
---|
| 236 | if (r != NULL && info[0].addr == r && l > 0 && f != 0) |
---|
| 237 | { |
---|
| 238 | strcpy(info[0].file, f); |
---|
| 239 | info[0].line = l; |
---|
| 240 | } |
---|
[13fe1b] | 241 | #endif |
---|
[e70e45] | 242 | } |
---|
| 243 | if (i == 0) |
---|
| 244 | { |
---|
| 245 | #endif /* ! OM_INTERNAL_DEBUG */ |
---|
| 246 | |
---|
| 247 | #ifdef OM_TRACK_FILE_LINE |
---|
| 248 | fprintf(fd, " %s:%d", f, l); |
---|
| 249 | #endif |
---|
| 250 | #ifdef OM_TRACK_RETURN |
---|
[f103fb] | 251 | fprintf(fd," ra=%p", r); |
---|
[e70e45] | 252 | #endif |
---|
| 253 | |
---|
| 254 | #ifndef OM_INTERNAL_DEBUG |
---|
| 255 | return 1; |
---|
| 256 | } |
---|
| 257 | else |
---|
| 258 | #endif /* ! OM_INTERNAL_DEBUG */ |
---|
[cba516] | 259 | #ifdef OM_PRINT_RETURN_ADDRESS |
---|
[36ee6f] | 260 | return omPrintRetInfo(info, i, fd, "\n #%i at %L in %N ra=%p"); |
---|
[cba516] | 261 | #else |
---|
[36ee6f] | 262 | return omPrintRetInfo(info, i, fd, "\n #%i at %L in %N"); |
---|
[cba516] | 263 | #endif |
---|
[e70e45] | 264 | } |
---|
| 265 | |
---|
[b98efa] | 266 | int _omPrintCurrentBackTrace(FILE* fd , OM_FLR_DECL) |
---|
[e70e45] | 267 | { |
---|
| 268 | int i; |
---|
| 269 | void* bt[OM_MAX_BACKTRACE_DEPTH]; |
---|
[13fe1b] | 270 | |
---|
[e70e45] | 271 | i = omGetBackTrace(bt, 1, OM_MAX_BACKTRACE_DEPTH); |
---|
[b98efa] | 272 | return _omPrintBackTrace(bt, i, fd , OM_FLR_VAL); |
---|
[e70e45] | 273 | } |
---|
| 274 | #endif /* ! OM_NDEBUG */ |
---|