diff options
| author | Fernando Nasser <fnasser@redhat.com> | 1999-01-15 16:22:07 +0000 |
|---|---|---|
| committer | Fernando Nasser <fnasser@redhat.com> | 1999-01-15 16:22:07 +0000 |
| commit | a68e7120b11f384e80b0329653f5d9b87a1084b9 (patch) | |
| tree | 6ac437db1a806d95054e6e4bfdcefbdd6416e025 | |
| parent | 02c548d743e63490f076c086c8e55ffb229140e2 (diff) | |
| download | gdb-a68e7120b11f384e80b0329653f5d9b87a1084b9.zip gdb-a68e7120b11f384e80b0329653f5d9b87a1084b9.tar.gz gdb-a68e7120b11f384e80b0329653f5d9b87a1084b9.tar.bz2 | |
1999-01-15 Fernando Nasser <fnasser@totem.to.cygnus.com>
* .Sanitize: add Kernel Objects Display (a.k.a. KOD) sanitization.
| -rw-r--r-- | gdb/.Sanitize | 41 |
1 files changed, 41 insertions, 0 deletions
diff --git a/gdb/.Sanitize b/gdb/.Sanitize index bbdb084..4a71472 100644 --- a/gdb/.Sanitize +++ b/gdb/.Sanitize @@ -29,6 +29,20 @@ else fi fi +kod_files="kod.c kodecosdll.c" + +if ( echo $* | grep keep\-kod > /dev/null ) ; then + keep_these_too="${kod_files} ${keep_these_too}" + if [ -n "${verbose}" ] ; then + echo Keeping ${kod_files} + fi +else + lose_these_too="${kod_files} ${lose_these_too}" + if [ -n "${verbose}" ] ; then + echo Deleting ${kod_files} + fi +fi + tic80_files="tic80-tdep.c" if ( echo $* | grep keep\-tic80 > /dev/null ) ; then @@ -833,6 +847,33 @@ else done fi +if ( echo $* | grep keep\-kod > /dev/null ) ; then + for i in * ; do + if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then + if [ -n "${verbose}" ] ; then + echo Keeping kod stuff in $i + fi + fi + done +else + for i in * ; do + if test ! -d $i && (grep sanitize-kod $i > /dev/null) ; then + if [ -n "${verbose}" ] ; then + echo Removing traces of \"kod\" from $i... + fi + cp $i new + sed '/start\-sanitize\-kod/,/end-\sanitize\-kod/d' < $i > new + if [ -n "${safe}" -a ! -f .Recover/$i ] ; then + if [ -n "${verbose}" ] ; then + echo Caching $i in .Recover... + fi + mv $i .Recover + fi + mv new $i + fi + done +fi + # This is a temporary measure to sanitize out references to the # startup code need by the TclPro debugger. When that goes out # of alpha, we can remove this. |