gas/vmsconf.sh

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