| $!make-gas.com |
| $! Set the def dir to proper place for use in batch. Works for interactive to. |
| $flnm = f$enviroment("PROCEDURE") ! get current procedure name |
| $set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")' |
| $v = 'f$verify(0)' |
| $! |
| $! Command file to build a GNU assembler on VMS |
| $! |
| $! If you are using a version of GCC that supports global constants |
| $! you should remove the define="const=" from the gcc lines. |
| $! |
| $! Caution: Versions 1.38.1 and earlier had a bug in the handling of |
| $! some static constants. If you are using such a version of the |
| $! assembler, and you wish to compile without the "const=" hack, |
| $! you should first build this version *with* the "const=" |
| $! definition, and then use that assembler to rebuild it without the |
| $! "const=" definition. Failure to do this will result in an assembler |
| $! that will mung floating point constants. |
| $! |
| $! Note: The version of gas shipped on the GCC VMS tapes has been patched |
| $! to fix the above mentioned bug. |
| $! |
| $ !The gcc-vms driver was modified to use `-1' quite some time ago, |
| $ !so don't echo this text any more... |
| $ !write sys$output "If this assembler is going to be used with GCC 1.n, you" |
| $ !write sys$output "need to modify the driver to supply the -1 switch to gas." |
| $ !write sys$output "This is required because of a small change in how global" |
| $ !write sys$output "constant variables are handled. Failure to include this" |
| $ !write sys$output "will result in linker warning messages about mismatched |
| $ !write sys$output "psect attributes." |
| $! |
| $ gas_host="vms" |
| $ arch_indx = 1 + ((f$getsyi("CPU").ge.128).and.1) ! vax==1, alpha==2 |
| $ arch = f$element(arch_indx,"|","|VAX|Alpha|") |
| $ if arch.eqs."VAX" |
| $ then |
| $ cpu_type="vax" |
| $ obj_format="vms" |
| $ atof="vax" |
| $ else |
| $ cpu_type="alpha" |
| $ obj_format="evax" |
| $ atof="ieee" |
| $ endif |
| $ emulation="generic" |
| $! |
| $ COPY = "copy/noLog" |
| $! |
| $ C_DEFS :="""VMS""" |
| $! C_DEFS :="""VMS""","""const=""" |
| $ C_INCLUDES = "/Include=([],[.config],[-.include],[-.include.aout])" |
| $ C_FLAGS = "/noVerbose/Debug" + c_includes |
| $! |
| $! |
| $ on error then goto bail |
| $ if f$search("[-.libiberty]liberty.olb").eqs."" |
| $ then @[-.libiberty]vmsbuild.com |
| $ write sys$output "Now building gas." |
| $ endif |
| $ if "''p1'" .eqs. "LINK" then goto Link |
| $! |
| $! This helps gcc 1.nn find the aout/* files. |
| $! |
| $ aout_dev = f$parse(flnm,,,"DEVICE") |
| $ tmp = aout_dev - ":" |
| $if f$trnlnm(tmp).nes."" then aout_dev = f$trnlnm(tmp) |
| $ aout_dir = aout_dev+f$parse(flnm,,,"DIRECTORY")' - |
| - "GAS]" + "INCLUDE.AOUT.]" - "][" |
| $assign 'aout_dir' aout/tran=conc |
| $ opcode_dir = aout_dev+f$parse(flnm,,,"DIRECTORY")' - |
| - "GAS]" + "INCLUDE.OPCODE.]" - "][" |
| $assign 'opcode_dir' opcode/tran=conc |
| $! |
| $ set verify |
| $! |
| $ gcc 'c_flags'/Define=('C_DEFS')/Object=[]tc-'cpu_type'.obj [.config]tc-'cpu_type'.c |
| $ gcc 'c_flags'/Define=('C_DEFS')/Object=[]obj-'obj_format'.obj [.config]obj-'obj_format'.c |
| $ gcc 'c_flags'/Define=('C_DEFS')/Object=[]atof-'atof'.obj [.config]atof-'atof'.c |
| $ gcc 'c_flags'/Define=('C_DEFS') app.c |
| $ gcc 'c_flags'/Define=('C_DEFS') as.c |
| $ gcc 'c_flags'/Define=('C_DEFS') atof-generic.c |
| $ gcc 'c_flags'/Define=('C_DEFS') bignum-copy.c |
| $ gcc 'c_flags'/Define=('C_DEFS') cond.c |
| $ gcc 'c_flags'/Define=('C_DEFS') depend.c |
| $ gcc 'c_flags'/Define=('C_DEFS') dwarf2dbg.c |
| $ gcc 'c_flags'/Define=('C_DEFS') ehopt.c |
| $ gcc 'c_flags'/Define=('C_DEFS') expr.c |
| $ gcc 'c_flags'/Define=('C_DEFS') flonum-konst.c |
| $ gcc 'c_flags'/Define=('C_DEFS') flonum-copy.c |
| $ gcc 'c_flags'/Define=('C_DEFS') flonum-mult.c |
| $ gcc 'c_flags'/Define=('C_DEFS') frags.c |
| $ gcc 'c_flags'/Define=('C_DEFS') hash.c |
| $ gcc 'c_flags'/Define=('C_DEFS') input-file.c |
| $ gcc 'c_flags'/Define=('C_DEFS') input-scrub.c |
| $ gcc 'c_flags'/Define=('C_DEFS') literal.c |
| $ gcc 'c_flags'/Define=('C_DEFS') messages.c |
| $ gcc 'c_flags'/Define=('C_DEFS') output-file.c |
| $ gcc 'c_flags'/Define=('C_DEFS') read.c |
| $ gcc 'c_flags'/Define=('C_DEFS') subsegs.c |
| $ gcc 'c_flags'/Define=('C_DEFS') symbols.c |
| $ gcc 'c_flags'/Define=('C_DEFS') write.c |
| $ gcc 'c_flags'/Define=('C_DEFS') listing.c |
| $ gcc 'c_flags'/Define=('C_DEFS') ecoff.c |
| $ gcc 'c_flags'/Define=('C_DEFS') stabs.c |
| $ gcc 'c_flags'/Define=('C_DEFS') sb.c |
| $ gcc 'c_flags'/Define=('C_DEFS') macro.c |
| $link: |
| $!'f$verify(0)' |
| $ if f$trnlnm("IFILE$").nes."" then close/noLog ifile$ |
| $ create gcc-as.opt |
| ! |
| ! Linker options file for GNU assembler |
| ! |
| $ open/Append ifile$ gcc-as.opt |
| $ write ifile$ "tc-''cpu_type'.obj" |
| $ write ifile$ "obj-''obj_format'.obj" |
| $ write ifile$ "atof-''atof'.obj" |
| $ COPY sys$input: ifile$: |
| app.obj,- |
| as.obj,- |
| atof-generic.obj,- |
| bignum-copy.obj,- |
| cond.obj,- |
| depend.obj,- |
| dwarf2dbg.obj,- |
| ehopt.obj,- |
| expr.obj,- |
| flonum-konst.obj,- |
| flonum-copy.obj,- |
| flonum-mult.obj,- |
| frags.obj,- |
| hash.obj,- |
| input-file.obj,- |
| input-scrub.obj,- |
| literal.obj,- |
| messages.obj,- |
| output-file.obj,- |
| read.obj,- |
| subsegs.obj,- |
| symbols.obj,- |
| write.obj,- |
| listing.obj,- |
| ecoff.obj,- |
| stabs.obj,- |
| sb.obj,- |
| macro.obj,- |
| [-.libiberty]liberty.olb/Lib |
| gnu_cc:[000000]gcclib.olb/Lib,sys$library:vaxcrtl.olb/Lib |
| ! Tell linker exactly what psect attributes we want -- match VAXCRTL. |
| psect_attr=ENVIRON,long,pic,ovr,rel,gbl,noshr,noexe,rd,wrt |
| $ close ifile$ |
| $ set verify=(Proc,noImag) |
| $ link/noMap/Exec=gcc-as.exe gcc-as.opt/Opt,version.opt/Opt |
| $! |
| $bail: exit $status + 0*f$verify(v) !'f$verify(0)' |