diff options
Diffstat (limited to 'gcc/make-l2.com')
-rw-r--r-- | gcc/make-l2.com | 89 |
1 files changed, 69 insertions, 20 deletions
diff --git a/gcc/make-l2.com b/gcc/make-l2.com index 26657b3e724..9f45e64d95d 100644 --- a/gcc/make-l2.com +++ b/gcc/make-l2.com @@ -1,36 +1,44 @@ -$! 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")' +$! make-l2.com -- VMS build procedure for libgcc2. +$ +$! Change working directory to the location of this command procedure. +$ flnm = f$enviroment("PROCEDURE") !get current procedure name +$ set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")' $! -$! Command file to build libgcc2.olb. You should only run this once you +$! Command file to build libgcc2.olb. You should only run this once you $! have the current compiler installed, otherwise some of the builtins will $! not be recognized. Once you have built libgcc2.olb, you can merge this $! with gnu_cc:[000000]gcclib.olb $! -$! All of the source code is assumed to be in libgcc2.c, and a list of the +$! All of the C source code is assumed to be in libgcc2.c, and a list of the $! modules that we need from there is in libgcc2.list (which is generated -$! when config-gcc.com is run). +$! when vmsconfig.com is run). The C++ source is found in the [.cp.inc] +$! directory and managed via libgcc2-cxx.list. $! -$if f$search("gcc-cc1.exe").eqs."" -$ then +$ if f$search("gcc-cc1.exe").eqs."" +$ then $ gcc_cc1:=$gnu_cc:[000000]gcc-cc1 $ if f$extract(0,1,f$trnlnm("GNU_CC_VERSION")).eqs."1" then goto nocompile -$ else +$ else $ gcc_cc1:=$sys$disk:[]gcc-cc1 -$ endif +$ endif $! -$if f$search("gcc-cpp.exe").eqs."" -$ then +$ if f$search("gcc-cpp.exe").eqs."" +$ then $ gcc_cpp:=$gnu_cc:[000000]gcc-cpp $ if f$extract(0,1,f$trnlnm("GNU_CC_VERSION")).eqs."1" then goto nocompile $ Version:='f$trnlnm("GNU_CC_VERSION")' -$ else +$ else $ gcc_cpp:=$sys$disk:[]gcc-cpp $ open ifile$ version.opt $ read ifile$ line $ close ifile$ -$ Version=line-"ident="""-""" -$ endif +$ Version=line - "ident=""" - """ +$ endif +$! +$ if f$search("gcc-cc1plus.exe").eqs."" +$ then gcc_cxx = "$gnu_cc:[000000]gcc-cc1plus" +$ else gcc_cxx = "$sys$disk:[]gcc-cc1plus" +$ endif $! $gcc_as:=$gnu_cc:[000000]gcc-as $cpp_file:=sys$scratch:gcc_'f$getjpi(0,"pid")'.cpp @@ -48,9 +56,12 @@ $compile: $lib/create libgcc2.olb $on error then goto c_err $on control_y then goto c_err +$ +$if f$trnlnm("IFILE$").nes."" then close/noLog ifile$ $open ifile$ libgcc2.list -$loop: read ifile$ line/end=c_done +$loop: $! +$read ifile$ line/end=c_done $i=0 $loop1: $flnm=f$element(i," ",line) @@ -70,7 +81,7 @@ $! of specifying an alternate location for the compiler executables. $! $ gcc_cpp "-I[]" "-I[.ginclude]" "-D''flnm'" libgcc2.c 'cpp_file' $ gcc_cc1 'cpp_file' -dumpbase 'objname' -fexceptions - - -quiet -mgnu -g "-O1" -mvaxc-alignment -o 's_file' + -quiet -mgnu -g "-O1" -mvaxc-alignment -o 's_file' $ delete/nolog 'cpp_file'; $ gcc_as "-vGNU CC V''Version'" 's_file' -o 'objname'.OBJ $! Assemble again, preserving lowercase symbol names this time. @@ -82,13 +93,51 @@ $ delete/nolog 'objname'.obj;,'objname'-c.obj; $! $goto loop1 $! -$goto loop -$! $! In case of error or abort, go here (In order to close file). $! -$c_err: !'f$verify(0) +$c_err: !'f$verify(0) $close ifile$ $ exit %x2c $! $c_done: $close ifile$ +$ +$ +$ EXIT +$ !gcc-2.8.0: C++ libgcc2 code disabled since it's not adequately tested +$ +$! +$ p1 = p1+" "+p2+" "+p3+" "+p4+" "+p5+" "+p6+" "+p7+" "+p8 +$ p1 = " " + f$edit(p1,"COMPRESS,TRIM,UPCASE") + " " +$! (note: substring locations can only be equal when neither string is present) +$ if f$locate(" CC1PLUS ",p1).eq.f$locate(" CXX ",p1) then goto cxx_done +$ if f$search("libgcc2-cxx.list").eqs."" then goto cxx_done +$! +$ open/read ifile$ libgcc2-cxx.list +$cxx_line_loop: +$ read ifile$ line/end=cxx_done +$ i = 0 +$cxx_file_loop: +$ flnm = f$element(i,",",line) +$ i = i + 1 +$ if flnm.eqs."" .or. flnm.eqs."," then goto cxx_line_loop +$ write sys$output "$ gcc/plus/debug ''flnm'.cc" +$ objname = flnm +$! +$ gcc_cpp -+ "-I[]" "-I[.ginclude]" "-I[.cp.inc]" [.cp]'flnm'.cc 'cpp_file' +$ gcc_cxx 'cpp_file' -dumpbase 'objname' -fexceptions - + -quiet -mgnu -g "-O1" -mvaxc-alignment -o 's_file' +$ delete/nolog 'cpp_file'; +$ gcc_as "-vGNU CC V''Version'" 's_file' -o 'objname'.OBJ +$! Assemble again, preserving lowercase symbol names this time. +$ gcc_as "-vGNU CC V''Version'" -h3 's_file' -o 'objname'-c.OBJ +$ delete/nolog 's_file'; +$ +$ library libgcc2.olb 'objname'.obj,'objname'-c.obj +$ delete/nolog 'objname'.obj;,'objname'-c.obj; +$! +$ goto cxx_file_loop +$! +$cxx_done: +$ close ifile$ +$ exit |