Mercurial > hg > CbC > CbC_gcc
annotate contrib/compare-debug @ 158:494b0b89df80 default tip
...
| author | Shinji KONO <kono@ie.u-ryukyu.ac.jp> |
|---|---|
| date | Mon, 25 May 2020 18:13:55 +0900 |
| parents | 04ced10e8804 |
| children |
| rev | line source |
|---|---|
| 0 | 1 #! /bin/sh |
| 2 | |
| 3 # Compare stripped copies of two given object files. | |
| 4 | |
| 111 | 5 # Copyright (C) 2007, 2008, 2009, 2010, 2012 Free Software Foundation |
| 0 | 6 # Originally by Alexandre Oliva <aoliva@redhat.com> |
| 7 | |
| 8 # This file is part of GCC. | |
| 9 | |
| 10 # GCC is free software; you can redistribute it and/or modify it under | |
| 11 # the terms of the GNU General Public License as published by the Free | |
| 12 # Software Foundation; either version 3, or (at your option) any later | |
| 13 # version. | |
| 14 | |
| 15 # GCC is distributed in the hope that it will be useful, but WITHOUT | |
| 16 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY | |
| 17 # or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public | |
| 18 # License for more details. | |
| 19 | |
| 20 # You should have received a copy of the GNU General Public License | |
| 21 # along with GCC; see the file COPYING3. If not see | |
| 22 # <http://www.gnu.org/licenses/>. | |
| 23 | |
| 24 rm='rm -f' | |
| 25 | |
| 26 case $1 in | |
| 27 -p | --preserve) | |
| 28 rm='echo preserving' | |
| 29 shift | |
| 30 ;; | |
| 31 esac | |
| 32 | |
| 33 if test $# != 2; then | |
| 34 echo 'usage: compare-debug file1.o file2.o' >&2 | |
| 35 exit 1 | |
| 36 fi | |
| 37 | |
| 38 if test ! -f "$1"; then | |
| 39 echo "$1" does not exist >&2 | |
| 40 exit 1 | |
| 41 fi | |
| 42 | |
| 43 if test ! -f "$2"; then | |
| 44 echo "$2" does not exist >&2 | |
| 45 exit 1 | |
| 46 fi | |
| 47 | |
| 48 suf1=stripped | |
| 49 while test -f "$1.$suf1"; do | |
| 50 suf1=$suf1. | |
| 51 done | |
| 52 | |
| 53 suf2=stripped | |
| 54 while test -f "$2.$suf2"; do | |
| 55 suf2=$suf2. | |
| 56 done | |
| 57 | |
| 58 trap 'rm -f "$1.$suf1" "$2.$suf2"' 0 1 2 15 | |
| 59 | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
60 case `uname -s` in |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
61 Darwin) |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
62 # The strip command on darwin does not remove all debug info. |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
63 # Fortunately, we can use ld to do it instead. |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
64 ld -S -r -no_uuid "$1" -o "$1.$suf1" |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
65 ld -S -r -no_uuid "$2" -o "$2.$suf2" |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
66 ;; |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
67 *) |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
68 cp "$1" "$1.$suf1" |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
69 strip "$1.$suf1" |
| 0 | 70 |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
71 cp "$2" "$2.$suf2" |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
72 strip "$2.$suf2" |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
73 ;; |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
74 esac |
| 0 | 75 |
| 111 | 76 remove_comment () |
| 77 { | |
| 78 file=$1 | |
| 79 opts= | |
| 80 for s in `objdump --section-headers "$file" | awk '{ print $2 }'`; do | |
| 81 case "$s" in | |
| 82 .comment*) | |
| 83 opts="$opts --remove-section $s" | |
| 84 ;; | |
| 85 esac | |
| 86 done | |
| 87 [ -n "$opts" ] && objcopy $opts $file | |
| 88 } | |
| 89 | |
| 0 | 90 if cmp "$1.$suf1" "$2.$suf2"; then |
| 91 status=0 | |
| 92 else | |
| 93 status=1 | |
| 36 | 94 |
| 111 | 95 # Remove any .comment sections. |
| 96 if (objcopy -v) 2>&1 | grep ' --remove-section' > /dev/null \ | |
| 97 && (objdump --help) 2>&1 | grep ' --\[*section-\]*headers' > /dev/null; then | |
| 98 remove_comment "$1.$suf1" | |
| 99 remove_comment "$2.$suf2" | |
| 100 if cmp "$1.$suf1" "$2.$suf2"; then | |
| 101 status=0 | |
| 102 fi | |
| 103 fi | |
| 104 | |
| 36 | 105 # Assembler-generated CFI will add an .eh_frame section for -g not |
| 106 # present in -g0. Try to cope with it by checking that an .eh_frame | |
| 107 # section is present in either object file, and then stripping it | |
| 108 # off before re-comparing. | |
| 109 | |
| 110 cmd= | |
| 111 cmp1= | |
| 112 cmp2= | |
| 113 | |
| 114 for t in objdump readelf eu-readelf; do | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
115 if ($t --help) 2>&1 | grep ' --\[*section-\]*headers' > /dev/null; then |
| 36 | 116 cmd=$t |
| 117 | |
| 118 $cmd --section-headers "$1.$suf1" | grep '\.eh_frame' > /dev/null | |
| 119 cmp1=$? | |
| 120 | |
| 121 $cmd --section-headers "$2.$suf2" | grep '\.eh_frame' > /dev/null | |
| 122 cmp2=$? | |
| 123 | |
| 124 break | |
| 125 fi | |
| 126 done | |
| 127 | |
| 128 # If we found .eh_frame in one but not the other, or if we could not | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
129 # find a command to tell, or if there are LTO sections, try to strip |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
130 # off the .eh_frame and LTO sections from both. |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
131 if test "x$cmp1" != "x$cmp2" || test "x$cmd" = "x" || |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
132 $cmd --section-headers "$1.$suf1" | grep '.gnu.lto_' > /dev/null || |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
133 $cmd --section-headers "$2.$suf2" | grep '.gnu.lto_' > /dev/null ; then |
| 36 | 134 suf3=$suf1. |
| 135 while test -f "$1.$suf3"; do | |
| 136 suf3=$suf3. | |
| 137 done | |
| 138 | |
| 139 suf4=$suf2. | |
| 140 while test -f "$2.$suf4"; do | |
| 141 suf4=$suf4. | |
| 142 done | |
| 143 | |
| 144 trap 'rm -f "$1.$suf1" "$2.$suf2" "$1.$suf3" "$2.$suf4"' 0 1 2 15 | |
| 145 | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
146 echo stripping off .eh_frame and LTO sections, then retrying >&2 |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
147 |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
148 seclist=".eh_frame .rel.eh_frame .rela.eh_frame" |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
149 if test "x$cmd" != "x"; then |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
150 seclist="$seclist "`{ $cmd --section-headers "$1.$suf1"; $cmd --section-headers "$2.$suf2"; } | sed -n 's,.* \(\.gnu\.lto_[^ ]*\).*,\1,p' | sort -u` |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
151 fi |
|
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
152 rsopts=`for sec in $seclist; do echo " --remove-section $sec"; done` |
| 36 | 153 |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
154 if (objcopy -v) 2>&1 | grep ' --remove-section' > /dev/null; then |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
155 objcopy $rsopts "$1.$suf1" "$1.$suf3" |
| 36 | 156 mv "$1.$suf3" "$1.$suf1" |
| 157 | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
158 objcopy $rsopts "$2.$suf2" "$2.$suf4" |
| 36 | 159 mv "$2.$suf4" "$2.$suf2" |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
160 elif (strip --help) 2>&1 | grep ' --remove-section' > /dev/null; then |
| 36 | 161 cp "$1.$suf1" "$1.$suf3" |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
162 strip $rsopts "$1.$suf3" |
| 36 | 163 mv "$1.$suf3" "$1.$suf1" |
| 164 | |
| 165 cp "$2.$suf2" "$2.$suf4" | |
|
67
f6334be47118
update gcc from gcc-4.6-20100522 to gcc-4.6-20110318
nobuyasu <dimolto@cr.ie.u-ryukyu.ac.jp>
parents:
55
diff
changeset
|
166 strip $rsopts "$2.$suf4" |
| 36 | 167 mv "$2.$suf4" "$2.$suf2" |
| 168 else | |
| 169 echo failed to strip off .eh_frame >&2 | |
| 170 fi | |
| 171 | |
| 172 trap 'rm -f "$1.$suf1" "$2.$suf2"' 0 1 2 15 | |
| 173 | |
| 174 if cmp "$1.$suf1" "$2.$suf2"; then | |
| 175 status=0 | |
| 176 else | |
| 177 status=1 | |
| 178 fi | |
| 179 fi | |
| 0 | 180 fi |
| 181 | |
| 182 $rm "$1.$suf1" "$2.$suf2" | |
| 183 | |
| 184 trap "exit $status; exit" 0 1 2 15 | |
| 185 | |
|
55
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
186 if test -f "$1".gkd || test -f "$2".gkd; then |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
187 if cmp "$1".gkd "$2".gkd; then |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
188 : |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
189 else |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
190 status=$? |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
191 fi |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
192 fi |
|
77e2b8dfacca
update it from 4.4.3 to 4.5.0
ryoma <e075725@ie.u-ryukyu.ac.jp>
parents:
36
diff
changeset
|
193 |
| 0 | 194 exit $status |