gcc/testsuite/gm2/pim/pass/debug

   1 #!/bin/sh
   2
   3 # Copyright (C) 2005-2023 Free Software Foundation, Inc.
   4 # This file is part of GNU Modula-2.
   5 #
   6 # GNU Modula-2 is free software; you can redistribute it and/or modify it under
   7 # the terms of the GNU General Public License as published by the Free
   8 # Software Foundation; either version 2, or (at your option) any later
   9 # version.
  10 #
  11 # GNU Modula-2 is distributed in the hope that it will be useful, but WITHOUT ANY
  12 # WARRANTY; without even the implied warranty of MERCHANTABILITY or
  13 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  14 # for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License along
  17 # with gm2; see the file COPYING.  If not, write to the Free Software
  18 # Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
  19
  20 if [ "$1" = "" ] ; then
  21    echo "debug modulename"
  22    exit 1
  23 fi
  24 if [ "$2" = "" ] ; then
  25    G=""
  26 else
  27    G=$2
  28 fi
  29 if ! gm2 -g $G -c $1.mod ; then
  30    echo "compilation failed"
  31    exit 1
  32 fi
  33 if ! gm2 -g $G $1.mod ; then
  34    echo "link failed"
  35    exit 1
  36 fi
  37 cat << EOFEOF > .gdbinit
  38 break _M2_$1_init
  39 run
  40 EOFEOF
  41 emacs .gdbinit
  42