gcc/testsuite/gm2/scripts/link

   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 LIBS=-I.:/usr/local/lib/gcc-lib/i686-pc-linux-gnu/3.2/gm2
  24 DRIVER=../../../../../../../build/gcc/xgm2
  25
  26 as -o `basename $1 .mod`.o `basename $1 .mod`.s
  27 if [ ! -x $DRIVER ] ; then
  28    echo "cannot find $DRIVER"
  29    exit 1
  30 fi
  31 if ! $DRIVER -Wcpp $BFLAGS -I$LIBS -g -I. $1 ; then
  32     exit $?
  33 fi
  34 cat << EOFEOF > .gdbinit
  35 # set language modula-2
  36 # set language pascal
  37 break _M2_`basename $1 .mod`_init
  38 run
  39 # next
  40 # print s
  41 # print ch
  42 EOFEOF
  43 emacs .gdbinit
  44