* EGCS on openVMS/Alpha
@ 1997-10-11 8:41 Klaus Kaempf
1997-10-20 0:59 ` Jeffrey A Law
0 siblings, 1 reply; 2+ messages in thread
From: Klaus Kaempf @ 1997-10-11 8:41 UTC (permalink / raw)
To: egcs list
The configuration file vmsconfig.com doesn't work in an openvms/alpha
environment. Here's a fix
Sat Oct 11 16:20:00 1997 Klaus Kaempf (kkaempf@progis.de)
* vmsconfig.com: fix to work on openVMS/Alpha and openVMS/VAX
===================================================================
RCS file: RCS/vmsconfig.com,v
retrieving revision 1.1
diff -c -r1.1 vmsconfig.com
*** vmsconfig.com 1997/10/08 08:07:18 1.1
--- vmsconfig.com 1997/10/08 08:09:42
***************
*** 1,7 ****
$ !
$ ! Set up to compile GCC on VMS.
$ !
! $! Set the def dir to proper place for use in batch. Works for interactive too.
$flnm = f$enviroment("PROCEDURE") ! get current procedure name
$set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
$ !
--- 1,7 ----
$ !
$ ! Set up to compile GCC on VMS.
$ !
! $ ! Set the def dir to proper place for use in batch. Works for interactive too.
$flnm = f$enviroment("PROCEDURE") ! get current procedure name
$set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
$ !
***************
*** 14,21 ****
$ arch = f$element(arch_indx,"|","|vax|alpha|")
$ !
$ if f$search("config.h") .nes. "" then delete config.h.*
! $ copy [.config.'arch']xm-vms.h []config.h
! $ echo "Linked `config.h' to `[.config.''arch']xm-vms.h'."
$ !
$ if f$search("tconfig.h") .nes. "" then delete tconfig.h.*
$ create []tconfig.h
--- 14,30 ----
$ arch = f$element(arch_indx,"|","|vax|alpha|")
$ !
$ if f$search("config.h") .nes. "" then delete config.h.*
! $ if arch .eqs. "vax"
! $ then
! $ copy [.config.'arch']xm-vms.h []config.h
! $ echo "Linked `config.h' to `[.config.''arch']xm-vms.h'."
! $else
! $ open/write cfile []config.h
! $ write cfile "#include "+"""config/"+arch+"/xm-"+arch+".h"+"""
! $ write cfile "#include "+"""config/"+arch+"/xm-vms.h"+"""
! $ close cfile
! $ echo "Created `config.h'."
! $ endif
$ !
$ if f$search("tconfig.h") .nes. "" then delete tconfig.h.*
$ create []tconfig.h
***************
*** 34,40 ****
$ echo "Created `hconfig.h'.
$ !
$ if f$search("tm.h") .nes. "" then delete tm.h.*
! $!! copy [.config.'arch']vms.h []tm.h
$ edit/tpu/nojournal/nosection/nodisplay/command=sys$input -
[.config.'arch']vms.h /output=[]tm.h
$DECK
--- 43,49 ----
$ echo "Created `hconfig.h'.
$ !
$ if f$search("tm.h") .nes. "" then delete tm.h.*
! $ !
$ edit/tpu/nojournal/nosection/nodisplay/command=sys$input -
[.config.'arch']vms.h /output=[]tm.h
$DECK
***************
*** 60,66 ****
ENDLOOP;
WRITE_FILE(file, GET_INFO(COMMAND_LINE, "output_file"));
QUIT
! $EOD
$ echo "Generated `tm.h' from `[.config.''arch']vms.h'."
$ !
$ !crude hack to allow compiling from [.cp] subdirectory
--- 69,75 ----
ENDLOOP;
WRITE_FILE(file, GET_INFO(COMMAND_LINE, "output_file"));
QUIT
! $ EOD
$ echo "Generated `tm.h' from `[.config.''arch']vms.h'."
$ !
$ !crude hack to allow compiling from [.cp] subdirectory
***************
*** 72,89 ****
$ !
$ call make_lang_incl "specs.h"
$ !
! $ if f$search("''arch'.md") .nes. "" then delete 'arch'.md;*
! $ copy [.config.'arch']'arch'.md []'arch'.md
! $ echo "Copied `''arch'.md' from `[.config.''arch']''arch'.md'."
$ !
$ if f$search("aux-output.c") .nes. "" then delete aux-output.c.*
$ copy [.config.'arch']'arch'.c []aux-output.c
$ echo "Linked `aux-output.c' to `[.config.''arch']''arch'.c'.
$ !
! $!
! $!
! $! Create the file version.opt, which helps identify the executable.
! $!
$search version.c version_string,"="/match=and/output=t.tmp
$open ifile$ t.tmp
$read ifile$ line
--- 81,101 ----
$ !
$ call make_lang_incl "specs.h"
$ !
! $ if arch .eqs. "vax"
! $ then
! $ if f$search("''arch'.md") .nes. "" then delete 'arch'.md;*
! $ copy [.config.'arch']'arch'.md []'arch'.md
! $ echo "Copied `''arch'.md' from `[.config.''arch']''arch'.md'."
! $ endif
$ !
$ if f$search("aux-output.c") .nes. "" then delete aux-output.c.*
$ copy [.config.'arch']'arch'.c []aux-output.c
$ echo "Linked `aux-output.c' to `[.config.''arch']''arch'.c'.
$ !
! $ !
! $ !
! $ ! Create the file version.opt, which helps identify the executable.
! $ !
$search version.c version_string,"="/match=and/output=t.tmp
$open ifile$ t.tmp
$read ifile$ line
***************
*** 95,113 ****
$line=f$extract(0,ijk,line)
$ijk=f$locate("\n",line)
$line=f$extract(0,ijk,line)
! $!
! $i=0
! $loop:
! $elm=f$element(i," ",line)
! $if elm.eqs."" then goto no_ident
! $if (elm.les."9").and.(elm.ges."0") then goto write_ident
! $i=i+1
! $goto loop
! $!
! $no_ident:
! $elm="?.??"
! $!
! $!
$write_ident:
$open/write ifile$ version.opt
$write ifile$ "ident="+""""+elm+""""
--- 107,115 ----
$line=f$extract(0,ijk,line)
$ijk=f$locate("\n",line)
$line=f$extract(0,ijk,line)
! $ !
! $elm=f$element(1," ",line)
! $ !
$write_ident:
$open/write ifile$ version.opt
$write ifile$ "ident="+""""+elm+""""
***************
*** 175,180 ****
--- 177,183 ----
!
generate_option_file ("OBJS", "=", "independent.opt");
generate_option_file ("LIB2FUNCS", "=", "libgcc2.list");
+ generate_option_file ("CXX_LIB2FUNCS", "=", "libgcc2-cxx.list");
generate_option_file ("BC_ALL", "=", "bc_all.list");
generate_option_file ("BI_OBJ", "=", "bi_all.opt");
!
***************
*** 239,244 ****
--- 242,250 ----
COPY_TEXT ("out_object_file=aux-output.o"); SPLIT_LINE; ! aux-output.obj
COPY_TEXT ("md_file=" + arch + ".md"); SPLIT_LINE; ! 'arch'/'arch'.md
COPY_TEXT ("tm_file=tm.h"); SPLIT_LINE; ! 'arch'/tm-vms.h
+ pat_replace ("@" &
+ SPAN("abcdefghijklmnopqrstuvwxyz_ABCDEFGHIJKLMNOPQRSTUVWXYZ#~0123456789")
+ & "@", ); ! strip `configure' dummy values
ENDPROCEDURE; !configure_makefile
!!
***************
*** 252,257 ****
--- 258,265 ----
! Strip most comments from the makefile, to speed up subsequent processing.
POSITION (BEGINNING_OF (makefile_buf));
pat_replace (LINE_BEGIN & "#" & REMAIN & LINE_END, );
+ pat_replace ("$(exeext)", );
+ pat_replace ("@all_compilers@", );
!# ! Convert directory references to VMS syntax (actually, just strip it).
!# pat_replace (" $(srcdir)/", " ");
! Look up the ``COMPILERS=cc1 xyzzy'' Makefile macro and put
--
proGIS Software E-Mail: kkaempf@progis.de
Dipl.-Inform. Klaus K"ampf Fax: 0241-47067-29
Jakobstr. 117 Voice: 0241-47067-11
D-52064 Aachen WWW: http://www.progis.de
^ permalink raw reply [flat|nested] 2+ messages in thread
* Re: EGCS on openVMS/Alpha
1997-10-11 8:41 EGCS on openVMS/Alpha Klaus Kaempf
@ 1997-10-20 0:59 ` Jeffrey A Law
0 siblings, 0 replies; 2+ messages in thread
From: Jeffrey A Law @ 1997-10-20 0:59 UTC (permalink / raw)
To: Klaus Kaempf; +Cc: egcs list
In message < 9710111517.AA10320@progis.de >you write:
> The configuration file vmsconfig.com doesn't work in an openvms/alpha
> environment. Here's a fix
>
> Sat Oct 11 16:20:00 1997 Klaus Kaempf (kkaempf@progis.de)
>
> * vmsconfig.com: fix to work on openVMS/Alpha and openVMS/VAX
I've installed this patch.
Note, I know thing about vms, so I can't really evaluate the patch.
jeff
^ permalink raw reply [flat|nested] 2+ messages in thread
end of thread, other threads:[~1997-10-20 0:59 UTC | newest]
Thread overview: 2+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
1997-10-11 8:41 EGCS on openVMS/Alpha Klaus Kaempf
1997-10-20 0:59 ` Jeffrey A Law
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).