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
|
---|