diff options
| -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. |