1 #!/bin/sh
   2 
   3 # Copyright (c) 2010, 2011, Oracle and/or its affiliates. All rights reserved.
   4 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5 #
   6 # This code is free software; you can redistribute it and/or modify it
   7 # under the terms of the GNU General Public License version 2 only, as
   8 # published by the Free Software Foundation.
   9 #
  10 # This code is distributed in the hope that it will be useful, but WITHOUT
  11 # ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
  12 # FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
  13 # version 2 for more details (a copy is included in the LICENSE file that
  14 # accompanied this code).
  15 #
  16 # You should have received a copy of the GNU General Public License version
  17 # 2 along with this work; if not, write to the Free Software Foundation,
  18 # Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
  19 #
  20 # Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
  21 # or visit www.oracle.com if you need additional information or have any
  22 # questions.
  23 
  24 
  25 # This script launches HotSpot.
  26 #
  27 # If the first parameter is either "-gdb" or "-gud", HotSpot will be
  28 # launched inside gdb. "-gud" means "open an Emacs window and run gdb
  29 # inside Emacs".
  30 #
  31 # If the first parameter is "-dbx", HotSpot will be launched inside dbx.
  32 # 
  33 # If the first parameter is "-valgrind", HotSpot will be launched
  34 # inside Valgrind (http://valgrind.kde.org) using the Memcheck skin,
  35 # and with memory leak detection enabled.  This currently (2005jan19)
  36 # requires at least Valgrind 2.3.0.  -Xmx16m will also be passed as
  37 # the first parameter to HotSpot, since lowering HotSpot's memory
  38 # consumption makes execution inside of Valgrind *a lot* faster.
  39 #
  40 
  41 
  42 #
  43 # User changeable parameters ------------------------------------------------
  44 #
  45 
  46 # This is the name of the gdb binary to use
  47 if [ ! "$GDB" ]
  48 then 
  49     GDB=gdb
  50 fi
  51 
  52 # This is the name of the gdb binary to use
  53 if [ ! "$DBX" ]
  54 then 
  55     DBX=dbx
  56 fi
  57 
  58 # This is the name of the Valgrind binary to use
  59 if [ ! "$VALGRIND" ]
  60 then 
  61     VALGRIND=valgrind
  62 fi
  63 
  64 # This is the name of Emacs for running GUD
  65 EMACS=emacs
  66 
  67 #
  68 # End of user changeable parameters -----------------------------------------
  69 #
  70 
  71 # Make sure the paths are fully specified, i.e. they must begin with /.
  72 REL_MYDIR=`dirname $0`
  73 MYDIR=`cd $REL_MYDIR && pwd`
  74 
  75 # Look whether the user wants to run inside gdb
  76 case "$1" in
  77     -gdb)
  78         MODE=gdb
  79         shift
  80         ;;
  81     -gud)
  82         MODE=gud
  83         shift
  84         ;;
  85     -dbx)
  86         MODE=dbx
  87         shift
  88         ;;
  89     -valgrind)
  90         MODE=valgrind
  91         shift
  92         ;;
  93     *)
  94         MODE=run
  95         ;;
  96 esac
  97 
  98 JDK=
  99 if [ "${ALT_JAVA_HOME}" = "" ]; then
 100     . ${MYDIR}/jdkpath.sh
 101 else 
 102     JDK=${ALT_JAVA_HOME%%/jre};
 103 fi
 104 
 105 if [ "${JDK}" = "" ]; then
 106     echo Failed to find JDK. ALT_JAVA_HOME is not set or ./jdkpath.sh is empty or not found.
 107     exit 1
 108 fi
 109 
 110 # We will set the LD_LIBRARY_PATH as follows:
 111 #     o         $JVMPATH (directory portion only)
 112 #     o         $JRE/lib/$ARCH
 113 # followed by the user's previous effective LD_LIBRARY_PATH, if
 114 # any.
 115 JRE=$JDK/jre
 116 JAVA_HOME=$JDK
 117 ARCH=@@LIBARCH@@
 118 
 119 SBP=${MYDIR}:${JRE}/lib/${ARCH}
 120 
 121 # Set up a suitable LD_LIBRARY_PATH
 122 
 123 if [ -z "$LD_LIBRARY_PATH" ]
 124 then
 125     LD_LIBRARY_PATH="$SBP"
 126 else
 127     LD_LIBRARY_PATH="$SBP:$LD_LIBRARY_PATH"
 128 fi
 129 
 130 export LD_LIBRARY_PATH
 131 export JAVA_HOME
 132 
 133 JPARMS="$@ $JAVA_ARGS";
 134 
 135 # Locate the gamma development launcher
 136 LAUNCHER=${MYDIR}/gamma
 137 if [ ! -x $LAUNCHER ] ; then
 138     echo Error: Cannot find the gamma development launcher \"$LAUNCHER\"
 139     exit 1
 140 fi
 141 
 142 GDBSRCDIR=$MYDIR
 143 BASEDIR=`cd $MYDIR/../../.. && pwd`
 144 
 145 init_gdb() {
 146 # Create a gdb script in case we should run inside gdb
 147     GDBSCR=/tmp/hsl.$$
 148     rm -f $GDBSCR
 149     cat >>$GDBSCR <<EOF
 150 cd `pwd`
 151 handle SIGUSR1 nostop noprint
 152 handle SIGUSR2 nostop noprint
 153 set args $JPARMS
 154 file $LAUNCHER
 155 directory $GDBSRCDIR
 156 # Get us to a point where we can set breakpoints in libjvm.so
 157 break InitializeJVM
 158 run
 159 # Stop in InitializeJVM
 160 delete 1
 161 # We can now set breakpoints wherever we like
 162 EOF
 163 }
 164 
 165 
 166 case "$MODE" in
 167     gdb)
 168         init_gdb
 169         $GDB -x $GDBSCR
 170         rm -f $GDBSCR
 171         ;;
 172     gud)
 173         init_gdb
 174 # First find out what emacs version we're using, so that we can
 175 # use the new pretty GDB mode if emacs -version >= 22.1
 176         case `$EMACS -version 2> /dev/null` in
 177             *GNU\ Emacs\ 2[23]*)
 178             emacs_gud_cmd="gdba"
 179             emacs_gud_args="--annotate=3"
 180             ;;
 181             *)
 182                 emacs_gud_cmd="gdb"
 183                 emacs_gud_args=
 184                 ;;
 185         esac
 186         $EMACS --eval "($emacs_gud_cmd \"$GDB $emacs_gud_args -x $GDBSCR\")";
 187         rm -f $GDBSCR
 188         ;;
 189     dbx)
 190         $DBX -s $MYDIR/.dbxrc $LAUNCHER $JPARAMS
 191         ;;
 192     valgrind)
 193         echo Warning: Defaulting to 16Mb heap to make Valgrind run faster, use -Xmx for larger heap
 194         echo
 195         $VALGRIND --tool=memcheck --leak-check=yes --num-callers=50 $LAUNCHER -Xmx16m $JPARMS
 196         ;;
 197     run)
 198         LD_PRELOAD=$PRELOADING exec $LAUNCHER $JPARMS
 199         ;;
 200     *)
 201         echo Error: Internal error, unknown launch mode \"$MODE\"
 202         exit 1
 203         ;;
 204 esac
 205 RETVAL=$?
 206 exit $RETVAL