Changeset 518793d for memlog2dot
- Timestamp:
- 05/30/15 15:56:39 (10 years ago)
- Branches:
- master
- Children:
- a7b97b9, 09f3093
- Parents:
- 24aa734
- git-author:
- Hal Finkel <hfinkel@…> (05/30/15 15:56:39)
- git-committer:
- Hal Finkel <hfinkel@…> (05/30/15 15:56:39)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
memlog2dot
r20b45de r518793d 199 199 200 200 my $file_name = $node->{'file_name'}; 201 my ($func, $loc) = `addr2line -e $file_name -f 0x$exe_off`; 201 202 # If we don't have an absolute path, this is probably the base dynamic 203 # executable, so ask the shell which one it used (not foolproof because we 204 # might not have the same PATH now, but hopefully is generally the right 205 # thing). 206 if ($file_name !~ /^\//) { 207 $file_name = `which '$file_name'`; 208 chomp($file_name); 209 } 210 211 my ($func, $loc) = `addr2line -e '$file_name' -f 0x$exe_off`; 202 212 chomp($func); 203 213 chomp($loc);
Note: See TracChangeset
for help on using the changeset viewer.