]>
Commit | Line | Data |
---|---|---|
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 | $! | |
6 | $! If you are running this file, then obviously the host is vax-dec-vms. | |
7 | $! | |
8 | $gas_host="vms" | |
9 | $! | |
10 | $cpu_type="vax" | |
11 | $emulation="generic" | |
12 | $obj_format="vms" | |
13 | $atof="vax" | |
14 | $! | |
15 | $! host specific information | |
16 | $call link host.h [.config]ho-'gas_host'.h | |
17 | $! | |
18 | $! Target specific information | |
19 | $call link targ-cpu.c [.config]tc-'cpu_type'.c | |
20 | $call link targ-cpu.h [.config]tc-'cpu_type'.h | |
21 | $call link targ-env.h [.config]te-'emulation'.h | |
22 | $! | |
23 | $! Code to handle the object file format. | |
24 | $call link obj-format.h [.config]obj-'obj_format'.h | |
25 | $call link obj-format.c [.config]obj-'obj_format'.c | |
26 | $! | |
27 | $! Code to handle floating point. | |
28 | $call link atof-targ.c [.config]atof-'atof'.c | |
29 | $! | |
30 | $! | |
31 | $! Create the file version.opt, which helps identify the executalbe. | |
32 | $! | |
33 | $search Makefile.in "VERSION="/match=and/output=t.tmp | |
34 | $open ifile$ t.tmp | |
35 | $read ifile$ line | |
36 | $close ifile$ | |
37 | $delete/nolog t.tmp;* | |
38 | $! Discard "VERSION=" and "\n" parts. | |
39 | $ijk=f$locate("=",line)+1 | |
40 | $line=f$extract(ijk,f$length(line)-ijk,line) | |
41 | $ijk=f$locate("\n",line) | |
42 | $line=f$extract(0,ijk,line) | |
43 | $! | |
44 | $ if f$search("version.opt").nes."" then delete/noconfirm version.opt;* | |
45 | $open ifile$ version.opt/write | |
46 | $write ifile$ "ident="+""""+line+"""" | |
47 | $close ifile$ | |
48 | $! Now write config.h. | |
49 | $ if f$search("config.h").nes."" then delete/noconfirm config.h;* | |
50 | $open ifile$ config.h/write | |
51 | $write ifile$ "#define TARGET_CPU """,cpu_type,""" | |
52 | $write ifile$ "#define TARGET_ALIAS ""vms""" | |
53 | $write ifile$ "#define TARGET_CANONICAL ""vax-dec-vms""" | |
54 | $write ifile$ "#define GAS_VERSION """,line,"""" | |
55 | $close ifile$ | |
56 | $! | |
57 | $ if f$search("config.status") .nes. "" then delete config.status.* | |
58 | $ open/write file config.status | |
59 | $ write file "Links are now set up for use with a vax running VMS." | |
60 | $ close file | |
61 | $ type config.status | |
62 | $exit | |
63 | $! | |
64 | $! | |
65 | $link: | |
66 | $subroutine | |
67 | $if f$search(p1).nes."" then delete/nolog 'p1'; | |
68 | $copy 'p2' 'p1' | |
69 | $write sys$output "Linked ''p2' to ''p1'." | |
70 | $endsubroutine |