From: Fernando Nasser Date: Fri, 15 Jan 1999 16:22:07 +0000 (+0000) Subject: 1999-01-15 Fernando Nasser X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=a68e7120b11f384e80b0329653f5d9b87a1084b9;p=binutils-gdb.git 1999-01-15 Fernando Nasser * .Sanitize: add Kernel Objects Display (a.k.a. KOD) sanitization. --- diff --git a/gdb/.Sanitize b/gdb/.Sanitize index bbdb084216a..4a714721dd0 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.