Commit | Line | Data |
---|---|---|
4b0dd31c KR |
1 | $! |
2 | $! This file sets things up to build gas on a VMS system to generate object | |
3 | $! files for a VMS system. We do not use the configure script, since we | |
4 | $! do not have /bin/sh to execute it. | |
5 | $! | |
4b0dd31c KR |
6 | $! |
7 | $gas_host="vms" | |
8 | $! | |
396e8d7f ILT |
9 | $arch_indx = 1 + ((f$getsyi("CPU").ge.128).and.1) ! vax==1, alpha==2 |
10 | $arch = f$element(arch_indx,"|","|VAX|Alpha|") | |
11 | $if arch .eqs. "VAX" | |
12 | $then | |
4b0dd31c | 13 | $cpu_type="vax" |
4b0dd31c KR |
14 | $obj_format="vms" |
15 | $atof="vax" | |
396e8d7f ILT |
16 | $else |
17 | $ cpu_type="alpha" | |
18 | $ obj_format="evax" | |
19 | $ atof="ieee" | |
20 | $endif | |
21 | $ | |
22 | $emulation="generic" | |
4b0dd31c | 23 | $! |
fd4b1131 KR |
24 | $ DELETE = "delete/noConfirm" |
25 | $ ECHO = "write sys$output" | |
4b0dd31c KR |
26 | $! |
27 | $! Target specific information | |
28 | $call link targ-cpu.c [.config]tc-'cpu_type'.c | |
29 | $call link targ-cpu.h [.config]tc-'cpu_type'.h | |
30 | $call link targ-env.h [.config]te-'emulation'.h | |
31 | $! | |
32 | $! Code to handle the object file format. | |
33 | $call link obj-format.h [.config]obj-'obj_format'.h | |
34 | $call link obj-format.c [.config]obj-'obj_format'.c | |
35 | $! | |
36 | $! Code to handle floating point. | |
37 | $call link atof-targ.c [.config]atof-'atof'.c | |
38 | $! | |
39 | $! | |
fd4b1131 | 40 | $! Create the file version.opt, which helps identify the executable. |
4b0dd31c | 41 | $! |
fd4b1131 KR |
42 | $if f$trnlnm("IFILE$").nes."" then close/noLog ifile$ |
43 | $search Makefile.in "VERSION="/Exact/Output=config-gas-tmp.tmp | |
44 | $open ifile$ config-gas-tmp.tmp | |
4b0dd31c KR |
45 | $read ifile$ line |
46 | $close ifile$ | |
fd4b1131 | 47 | $DELETE config-gas-tmp.tmp;* |
c3b0ae93 KR |
48 | $! Discard "VERSION=" and "\n" parts. |
49 | $ijk=f$locate("=",line)+1 | |
4b0dd31c | 50 | $line=f$extract(ijk,f$length(line)-ijk,line) |
fd4b1131 | 51 | $! [what "\n" part?? this seems to be useless, but is benign] |
4b0dd31c KR |
52 | $ijk=f$locate("\n",line) |
53 | $line=f$extract(0,ijk,line) | |
54 | $! | |
fd4b1131 KR |
55 | $ if f$search("version.opt").nes."" then DELETE version.opt;* |
56 | $copy _NL: version.opt | |
57 | $open/Append ifile$ version.opt | |
58 | $write ifile$ "identification="+""""+line+"""" | |
c3b0ae93 | 59 | $close ifile$ |
15f146be | 60 | $! |
c3b0ae93 | 61 | $! Now write config.h. |
15f146be | 62 | $! |
fd4b1131 KR |
63 | $ if f$search("config.h").nes."" then DELETE config.h;* |
64 | $copy _NL: config.h | |
65 | $open/Append ifile$ config.h | |
66 | $write ifile$ "/* config.h. Generated by config-gas.com. */ | |
67 | $write ifile$ "#ifndef GAS_VERSION" | |
c3b0ae93 | 68 | $write ifile$ "#define GAS_VERSION """,line,"""" |
fd4b1131 KR |
69 | $write ifile$ "#endif" |
70 | $write ifile$ "/*--*/" | |
396e8d7f ILT |
71 | $if arch .eqs. "VAX" |
72 | $then | |
fd4b1131 | 73 | $append [.config]vms-conf.h ifile$: |
396e8d7f ILT |
74 | $else |
75 | $ append [.config]vms-a-conf.h ifile$: | |
76 | $endif | |
4b0dd31c | 77 | $close ifile$ |
fd4b1131 | 78 | $ECHO "Created config.h." |
4b0dd31c | 79 | $! |
15f146be KR |
80 | $! Check for, and possibly make, header file <unistd.h>. |
81 | $! | |
82 | $ if f$search("tmp-chk-h.*").nes."" then DELETE tmp-chk-h.*;* | |
83 | $!can't use simple `#include HDR' with `gcc /Define="HDR=<foo.h>"' | |
84 | $!because the 2.6.[0-3] preprocessor handles it wrong (VMS-specific gcc bug) | |
85 | $ create tmp-chk-h.c | |
86 | int tmp_chk_h; /* guarantee non-empty output */ | |
87 | #ifdef HAVE_STDIO_H | |
88 | #include <stdio.h> | |
89 | #endif | |
90 | #ifdef HAVE_UNISTD_H | |
91 | #include <unistd.h> | |
92 | #endif | |
93 | #ifdef HAVE_UNIXIO_H | |
94 | #include <unixio.h> | |
95 | #endif | |
96 | #ifdef HAVE_UNIXLIB_H | |
97 | #include <unixlib.h> | |
98 | #endif | |
99 | $ on warning then continue | |
100 | $ CHECK = "call tmp_chk_h" | |
101 | $ CHECK "HAVE_STDIO_H" | |
102 | $ if .not.$status | |
103 | $ then type sys$input: | |
104 | ||
105 | ? could not compile <stdio.h>. | |
106 | Since gcc is not set up correctly, gas configuration cannot proceed. | |
107 | ||
108 | $ DELETE tmp-chk-h.c;* | |
109 | $ exit %x002C | |
110 | $ endif | |
111 | $! | |
112 | $ CHECK "HAVE_UNISTD_H" | |
113 | $ if .not.$status | |
114 | $ then | |
115 | $ if f$trnlnm("HFILE$").nes."" then close/noLog hfile$ | |
116 | $ CHECK "HAVE_UNIXIO_H" | |
117 | $ got_unixio = ($status .and. 1) | |
118 | $ CHECK "HAVE_UNIXLIB_H" | |
119 | $ got_unixlib = ($status .and. 1) | |
120 | $ create []unistd.h !with rudimentary contents | |
121 | /* <unistd.h> substitute for building gas */ | |
122 | #ifndef UNISTD_H | |
123 | #define UNISTD_H | |
124 | ||
125 | $ open/Append hfile$ []unistd.h | |
126 | $ if got_unixio | |
127 | $ then write hfile$ "#include <unixio.h>" | |
128 | $ else append sys$input: hfile$: | |
129 | /* some of the routines normally prototyped in <unixio.h> */ | |
130 | extern int creat(), open(), close(), read(), write(); | |
131 | extern int access(), dup(), dup2(), fstat(), stat(); | |
132 | extern long lseek(); | |
133 | $ endif | |
134 | $ write hfile$ "" | |
135 | $ if got_unixlib | |
136 | $ then write hfile$ "#include <unixlib.h>" | |
137 | $ else append sys$input: hfile$: | |
138 | /* some of the routines normally prototyped in <unixlib.h> */ | |
139 | extern char *sbrk(), *getcwd(), *cuserid(); | |
140 | extern int brk(), chdir(), chmod(), chown(), mkdir(); | |
141 | extern unsigned getuid(), umask(); | |
142 | $ endif | |
143 | $ append sys$input: hfile$: | |
144 | ||
145 | #endif /*UNISTD_H*/ | |
146 | $ close hfile$ | |
147 | $ ECHO "Created ""[]unistd.h""." | |
148 | $ endif !gcc '#include <unistd.h>' failed | |
149 | $ DELETE tmp-chk-h.c;* | |
150 | $ | |
151 | $tmp_chk_h: subroutine | |
152 | $ set noOn | |
153 | $ hname = f$edit("<" + (p1 - "HAVE_" - "_H") + ".h>","LOWERCASE") | |
154 | $ write sys$output "Checking for ''hname'." | |
155 | $ if f$search("tmp-chk-h.obj").nes."" then DELETE tmp-chk-h.obj;* | |
156 | $ define/noLog sys$error _NL: !can't use /User_Mode here due to gcc | |
157 | $ define/noLog sys$output _NL: ! driver's use of multiple image activation | |
158 | $ gcc /Include=([],[-.include]) /Define=("''p1'") tmp-chk-h.c | |
159 | $!can't just check $status; gcc 2.6.[0-3] preprocessor doesn't set it correctly | |
160 | $ ok = (($status.and.1).and.(f$search("tmp-chk-h.obj").nes."")) .or. %x10000000 | |
161 | $ deassign sys$error !restore, more or less | |
162 | $ deassign sys$output | |
163 | $ if ok then DELETE tmp-chk-h.obj;* | |
164 | $ exit ok | |
165 | $ endsubroutine !tmp_chk_h | |
166 | $ | |
167 | $! | |
168 | $! Done | |
169 | $! | |
fd4b1131 | 170 | $ if f$search("config.status") .nes. "" then DELETE config.status;* |
396e8d7f ILT |
171 | $ open/write cfile []config.status |
172 | $ write cfile "Links are now set up for use with a "+arch+" running VMS." | |
173 | $ close cfile | |
174 | $ type []config.status | |
4b0dd31c KR |
175 | $exit |
176 | $! | |
177 | $! | |
178 | $link: | |
179 | $subroutine | |
fd4b1131 KR |
180 | $ if f$search(p1).nes."" then DELETE 'p1';* |
181 | $ copy 'p2' 'p1' | |
182 | $ ECHO "Copied ''f$edit(p2,"LOWERCASE")' to ''f$edit(p1,"LOWERCASE")'." | |
4b0dd31c | 183 | $endsubroutine |