gas/vmsconf.sh

   1 #!/bin/sh
   2
   3 cat << 'EOF'
   4 $! Set the def dir to proper place for use in batch. Works for interactive to.
   5 $flnm = f$enviroment("PROCEDURE")     ! get current procedure name
   6 $set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
   7 $v = 'f$verify(0)'
   8 $!
   9 $!      Command file to build a GNU assembler on VMS
  10 $!
  11 $!      If you are using a version of GCC that supports global constants
  12 $!      you should remove the define="const=" from the gcc lines.
  13 $!
  14 $!      Caution:  Versions 1.38.1 and earlier had a bug in the handling of
  15 $!      some static constants. If you are using such a version of the
  16 $!      assembler, and you wish to compile without the "const=" hack,
  17 $!      you should first build this version *with* the "const="
  18 $!      definition, and then use that assembler to rebuild it without the
  19 $!      "const=" definition.  Failure to do this will result in an assembler
  20 $!      that will mung floating point constants.
  21 $!
  22 $!      Note: The version of gas shipped on the GCC VMS tapes has been patched
  23 $!      to fix the above mentioned bug.
  24 $!
  25 $       !The gcc-vms driver was modified to use `-1' quite some time ago,
  26 $       !so don't echo this text any more...
  27 $ !write sys$output "If this assembler is going to be used with GCC 1.n, you"
  28 $ !write sys$output "need to modify the driver to supply the -1 switch to gas."
  29 $ !write sys$output "This is required because of a small change in how global"
  30 $ !write sys$output "constant variables are handled.  Failure to include this"
  31 $ !write sys$output "will result in linker warning messages about mismatched
  32 $ !write sys$output "psect attributes."
  33 $!
  34 $ C_DEFS :="""VMS"""
  35 $! C_DEFS :="""VMS""","""const="""
  36 $ C_INCLUDES    = "/Include=([],[.config],[-.include],[-.include.aout])"
  37 $ C_FLAGS       = "/noVerbose/Debug" + c_includes
  38 $!
  39 $!
  40 $ on error then  goto bail
  41 $ if f$search("[-.libiberty]liberty.olb").eqs.""
  42 $ then  @[-.libiberty]vmsbuild.com
  43 $       write sys$output "Now building gas."
  44 $ endif
  45 $ if "''p1'" .eqs. "LINK" then goto Link
  46 $!
  47 $!  This helps gcc 1.nn find the aout/* files.
  48 $!
  49 $ aout_dev = f$parse(flnm,,,"DEVICE")
  50 $ tmp = aout_dev - ":"
  51 $if f$trnlnm(tmp).nes."" then aout_dev = f$trnlnm(tmp)
  52 $ aout_dir = aout_dev+f$parse(flnm,,,"DIRECTORY")' -
  53         - "GAS]" + "INCLUDE.AOUT.]" - "]["
  54 $assign 'aout_dir' aout/tran=conc
  55 $ opcode_dir = aout_dev+f$parse(flnm,,,"DIRECTORY")' -
  56         - "GAS]" + "INCLUDE.OPCODE.]" - "]["
  57 $assign 'opcode_dir' opcode/tran=conc
  58 $!
  59 $ set verify
  60 $!
  61 EOF
  62
  63 cfiles="`echo $* | sed -e 's/\.o/.c/g' -e 's!../\([^ /]*\)/\([^ /]*\.c\)![-.\1]\2!g'`"
  64
  65 for cfile in $cfiles ; do
  66   case $cfile in
  67     "[-."*)
  68         base=`echo $cfile | sed -e 's/\[.*\]//' -e 's/\.c$//'`
  69         echo "\$ gcc 'c_flags'/Define=('C_DEFS')/Object=[]$base.obj $cfile"
  70         ;;
  71     *)
  72         echo "\$ gcc 'c_flags'/Define=('C_DEFS') $cfile"
  73         ;;
  74   esac
  75 done
  76
  77 cat << 'EOF'
  78 $link:
  79 $!'f$verify(0)'
  80 $ set verify=(Proc,noImag)
  81 $ link/noMap/Exec=gcc-as version.opt/Opt+sys$input:/Opt
  82 !
  83 !       Linker options file for GNU assembler
  84 !
  85 EOF
  86
  87 for obj in $* ; do
  88   # Change "foo.o" into "foo.obj".
  89   echo ${obj}bj,- | sed 's!.*/!!g'
  90 done
  91
  92 cat << 'EOF'
  93 [-.libiberty]liberty.olb/Lib
  94 gnu_cc:[000000]gcclib.olb/Lib,sys$library:vaxcrtl.olb/Lib
  95 ! Tell linker exactly what psect attributes we want -- match VAXCRTL.
  96 psect_attr=ENVIRON,long,pic,ovr,rel,gbl,noshr,noexe,rd,wrt
  97 $!
  98 $bail: exit $status + 0*f$verify(v)     !'f$verify(0)'
  99 EOF