gcc/make-l2.com

   1 $! Set the def dir to proper place for use in batch. Works for interactive too.
   2 $flnm = f$enviroment("PROCEDURE")     ! get current procedure name
   3 $set default 'f$parse(flnm,,,"DEVICE")''f$parse(flnm,,,"DIRECTORY")'
   4 $!
   5 $ arch_indx = 1 + ((f$getsyi("CPU").ge.128).and.1)      ! vax==1, alpha==2
   6 $ arch = f$element(arch_indx,"|","|vax|alpha|")
   7 $!
   8 $! Command file to build libgcc2.olb.  You should only run this once you
   9 $! have the current compiler installed, otherwise some of the builtins will
  10 $! not be recognized.  Once you have built libgcc2.olb, you can merge this
  11 $! with gnu:[000000]gcclib.olb
  12 $!
  13 $! All of the source code is assumed to be in libgcc2.c, and a list of the
  14 $! modules that we need from there is in libgcc2.list (which is generated
  15 $! when config-gcc.com is run).
  16 $!
  17 $if f$search("gcc-cc1.exe").eqs.""
  18 $  then
  19 $    gcc-cc1:=$gnu_cc_library:gcc-cc1
  20 $  else
  21 $    gcc_cc1:=$sys$disk:[]gcc-cc1
  22 $  endif
  23 $!
  24 $if f$search("gcc-cpp.exe").eqs.""
  25 $  then
  26 $    gcc_cpp:=$gnu_cc_library:gcc-cpp
  27 $  else
  28 $    gcc_cpp:=$sys$disk:[]gcc-cpp
  29 $    open ifile$ version.opt
  30 $    read ifile$ line
  31 $    close ifile$
  32 $  endif
  33 $!
  34 $ gcc_as:=$gnu_root:[bin]as
  35 $ cpp_file:=sys$scratch:gcc_'f$getjpi(0,"pid")'.cpp
  36 $ s_file:=sys$scratch:gcc_'f$getjpi(0,"pid")'.s
  37 $!
  38 $set symbol/scope=(nolocal,noglobal)
  39 $!
  40 $lib/create libgcc2.olb
  41 $on error then goto c_err
  42 $on control_y then goto c_err
  43 $open ifile$ libgcc2.list
  44 $loop: read ifile$ line/end=c_done
  45 $!
  46 $i=0
  47 $loop1:
  48 $flnm=f$element(i," ",line)
  49 $i=i+1
  50 $if flnm.eqs."" then goto loop
  51 $if flnm.eqs." " then goto loop
  52 $!
  53 $flnm = "L"+flnm
  54 $if flnm.eqs."L_exit" then goto loop1
  55 $write sys$output "$ gcc/debug/define=""''flnm'"" LIBGCC2.C"
  56 $!
  57 $objname = flnm
  58 $if flnm.eqs."L_builtin_New" then objname = "L_builtin_nnew"
  59 $!
  60 $! We do this by hand, since the VMS compiler driver does not have a way
  61 $! of specifying an alternate location for the compiler executables.
  62 $!
  63 $ if arch .eqs. "alpha"
  64 $ then
  65 $   gcc_cpp "-D__IEEE_FLOAT" "-I[]" "-I[.config]" "-I[.ginclude]" "-D''flnm'"  libgcc2.c 'cpp_file'
  66 $   gcc_cc1 'cpp_file' -dumpbase 'objname' -
  67         -quiet -mgas "-O1" -mfloat-ieee -o 's_file'
  68 $ else
  69 $   gcc_cpp "-I[]" "-I[.config]" "-I[.ginclude]" "-D''flnm'"  libgcc2.c 'cpp_file'
  70 $   gcc_cc1 'cpp_file' -dumpbase 'objname' -
  71         -quiet -mgnu -g "-O1" -mvaxc-alignment   -o 's_file'
  72 $ endif
  73 $ delete/nolog 'cpp_file';
  74 $   gcc_as 's_file'  -o 'objname'.OBJ
  75 $ if arch .eqs. "vax"
  76 $ then
  77 $! Assemble again, preserving lowercase symbol names this time.
  78 $   gcc_as -h3 's_file'  -o 'objname'-c.OBJ
  79 $   library libgcc2.olb 'objname'.obj,'objname'-c.obj
  80 $   delete/nolog 'objname'.obj;,'objname'-c.obj;
  81 $ else
  82 $   library libgcc2.olb 'objname'.obj
  83 $   delete/nolog 'objname'.obj;
  84 $ endif
  85 $ delete/nolog 's_file';
  86 $!
  87 $!
  88 $goto loop1
  89 $!
  90 $goto loop
  91 $!
  92 $! In case of error or abort, go here (In order to close file).
  93 $!
  94 $c_err: !'f$verify(0)
  95 $close ifile$
  96 $ exit %x2c
  97 $!
  98 $c_done:
  99 $close ifile$