4 $
! Set the def dir to proper place
for use
in batch. Works
for interactive to.
5 $flnm = f
$enviroment("PROCEDURE") ! get current procedure name
6 $set default
'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
8 $
! Command
file to build a GNU assembler on VMS
10 $
! If you are using a version of GCC that supports global constants
11 $
! you should remove the define
="const=" from the gcc lines.
13 $
! Caution
: Versions
1.38.1 and earlier had a bug
in the handling of
14 $
! some static constants. If you are using such a version of the
15 $
! assembler
, and you wish to compile without the
"const=" hack
,
16 $
! you should first build this version
*with
* the
"const="
17 $
! definition
, and
then use that assembler to rebuild it without the
18 $
! "const=" definition. Failure to
do this will result
in an assembler
19 $
! that will mung floating point constants.
21 $
! Note
: The version of gas shipped on the GCC VMS tapes has been patched
22 $
! to fix the above mentioned bug.
24 $
write sys
$output "If this assembler is going to be used with GCC 1.n, you"
25 $
write sys
$Output "need to modify the driver to supply the -1 switch to gas."
26 $
write sys
$output "This is required because of a small change in how global"
27 $
write sys
$Output "constant variables are handled. Failure to include this"
28 $
write sys
$output "will result in linker warning messages about mismatched
29 $ write sys$output "psect attributes.
"
32 $! C_DEFS :="""VMS
""","""const
="""
33 $ C_INCLUDES :=/include=([],[.config],[-.include],[-.include.aout])
34 $ C_FLAGS := /debug 'c_includes'
37 $ if "''p1
'" .eqs. "LINK" then goto Link
39 $! This helps gcc 1.nn find the aout/* files.
41 $ aout_dev = f$parse(flnm,,,"DEVICE")
42 $ tmp = aout_dev - ":"
43 $if f$trnlnm(tmp).nes."" then aout_dev = f$trnlnm(tmp)
44 $ aout_dir = aout_dev+f$parse(flnm,,,"DIRECTORY")' -
45 - "GAS]" + "INCLUDE.AOUT.]" - "]["
46 $assign 'aout_dir' aout
/tran
=conc
47 $ opcode_dir
= aout_dev
+f
$parse(flnm
,,,"DIRECTORY")' -
48 - "GAS]" + "INCLUDE.OPCODE.]" - "]["
49 $assign 'opcode_dir
' opcode/tran=conc
53 cfiles="`echo $* | sed -e 's
/\.o
/.c
/g
' -e 's
!..
/\
([^
/]*\
)/\
([^
/]*\.c\
)![-.\
1]\
2!g
'`"
55 for cfile in $cfiles ; do
58 base=`echo $cfile | sed -e 's
/\
[.
*\
]//' -e 's
/\.c$
//'`
59 echo "\$ gcc 'c_flags
'/define=('C_DEFS
')/object=[]$base.obj $cfile"
62 echo "\$ gcc 'c_flags
'/define=('C_DEFS
') $cfile"
69 $ link/nomap/exec=gcc-as version.opt/opt+sys$input:/opt
71 ! Linker options file for GNU assembler
76 # Change "foo.o" into "foo.obj".
77 echo ${obj}bj,- | sed 's
!.
*/!!g
'
81 gnu_cc:[000000]gcclib/lib,sys$share:vaxcrtl/lib
82 ! Tell linker exactly what psect attributes we want -- match VAXCRTL.
83 psect_attr=ENVIRON,long,pic,ovr,rel,gbl,noshr,noexe,rd,wrt