gcc/testsuite/gm2/scripts/compileiso

   1 #!/bin/sh
   2
   3 # Copyright (C) 2000-2024 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
   7 # it under the terms of the GNU General Public License as published by
   8 # the Free Software Foundation; either version 2, or (at your option)
   9 # any later version.
  10 #
  11 # GNU Modula-2 is distributed in the hope that it will be useful,
  12 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 # GNU General Public License for more details.
  15 #
  16 # You should have received a copy of the GNU General Public License
  17 # along with GNU Modula-2; see the file COPYING.  If not, write to the
  18 # Free Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
  19 # 02110-1301, USA.
  20 #
  21
  22 BFLAGS=-B../../../../../../../build/gcc/stage1/gm2
  23 CLIBS=-I../../../../gm2-iso:.:/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.2/gm2/iso:/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.2/gm2/pim
  24 LLIBS=-I.:/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.2/gm2/iso:/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.2/gm2/pim
  25 DRIVER=../../../../../../../build/gcc/xgm2
  26 OPTS=-Wiso $2
  27 CPP=
  28
  29 if [ ! -x $DRIVER ] ; then
  30    echo "cannot find $DRIVER"
  31    exit 1
  32 fi
  33 if ! $DRIVER $OPTS $BFLAGS $CLIBS -gstabs -c $1 ; then
  34     exit $?
  35 fi
  36 if ! $DRIVER $OPTS $BFLAGS $CLIBS -S -gstabs -c $1 ; then
  37     exit $?
  38 fi
  39 if ! $DRIVER $OPTS $BFLAGS $LLIBS -gstabs -I. $1 -lm ; then
  40     exit $?
  41 fi
  42 cat << EOFEOF > .gdbinit
  43 # set language modula-2
  44 # set language pascal
  45 break _M2_`basename $1 .mod`_init
  46 run
  47 #next
  48 #print r
  49 #ptype r
  50 EOFEOF
  51 emacs .gdbinit
  52