ld/ld-gld960.c

   1 /* Copyright (C) 1991 Free Software Foundation, Inc.
   2
   3 This file is part of GLD, the Gnu Linker.
   4
   5 GLD is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation; either version 1, or (at your option)
   8 any later version.
   9
  10 GLD is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with GLD; see the file COPYING.  If not, write to
  17 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  18
  19 /*
  20    $Id$
  21
  22    $Log$
  23    Revision 1.3  1991/04/14 03:22:11  steve
  24    checkpoint before a merge
  25
  26  * Revision 1.2  1991/03/22  23:02:30  steve
  27  * Brought up to sync with Intel again.
  28  *
  29  * Revision 1.3  1991/03/16  22:27:24  rich
  30  * fish
  31  *
  32  * Revision 1.2  1991/03/15  18:45:55  rich
  33  * foo
  34  *
  35  * Revision 1.1  1991/03/13  00:48:12  chrisb
  36  * Initial revision
  37  *
  38  * Revision 1.4  1991/03/10  09:31:19  rich
  39  *  Modified Files:
  40  *      Makefile config.h ld-emul.c ld-emul.h ld-gld.c ld-gld960.c
  41  *      ld-lnk960.c ld.h lddigest.c ldexp.c ldexp.h ldfile.c ldfile.h
  42  *      ldgram.y ldinfo.h ldlang.c ldlang.h ldlex.h ldlex.l ldmain.c
  43  *      ldmain.h ldmisc.c ldmisc.h ldsym.c ldsym.h ldversion.c
  44  *      ldversion.h ldwarn.h ldwrite.c ldwrite.h y.tab.h
  45  *
  46  * As of this round of changes, ld now builds on all hosts of (Intel960)
  47  * interest and copy passes my copy test on big endian hosts again.
  48  *
  49  * Revision 1.3  1991/02/22  17:14:57  sac
  50  * Added RCS keywords and copyrights
  51  *
  52 */
  53
  54 /*
  55  * emulate the Intels port of  gld
  56  */
  57
  58
  59 #include "sysdep.h"
  60 #include "bfd.h"
  61
  62
  63 #include "ld.h"
  64 #include "config.h"
  65 #include "ld-emul.h"
  66 #include "ldfile.h"
  67 #include "ldmisc.h"
  68
  69
  70 /* IMPORTS */
  71 extern char *output_filename;
  72 extern  boolean lang_float_flag;
  73
  74
  75 extern enum bfd_architecture ldfile_output_architecture;
  76 extern unsigned long ldfile_output_machine;
  77 extern char *ldfile_output_machine_name;
  78
  79 extern bfd *output_bfd;
  80
  81
  82
  83 static void gld960_before_parse()
  84 {
  85   char *env ;
  86   env =  getenv("G960LIB");
  87   if (env) {
  88     ldfile_add_library_path(env);
  89   }
  90   env = getenv("G960BASE");
  91   if (env) {
  92     ldfile_add_library_path(concat(env,"/lib",""));
  93   }
  94   ldfile_output_architecture = bfd_arch_i960;
  95 }
  96
  97
  98 static void
  99 gld960_after_parse()
 100 {
 101
 102 }
 103
 104 static void
 105 gld960_after_allocation()
 106 {
 107
 108 }
 109
 110 static void
 111 gld960_before_allocation()
 112 {
 113
 114 }
 115
 116
 117 static void
 118 gld960_set_output_arch()
 119 {
 120   /* Set the output architecture and machine if possible */
 121   unsigned long  machine = 0;
 122   bfd_set_arch_mach(output_bfd, ldfile_output_architecture, machine);
 123 }
 124
 125 static char *
 126 gld960_choose_target()
 127 {
 128   char *from_outside = getenv(TARGET_ENVIRON);
 129   output_filename = "b.out";
 130
 131   if (from_outside != (char *)NULL)
 132     return from_outside;
 133   return GLD960_TARGET;
 134 }
 135
 136 static void
 137 gld960_syslib()
 138 {
 139   info("%S SYSLIB ignored\n");
 140 }
 141
 142 static void
 143 gld960_hll()
 144 {
 145   info("%S HLL ignored\n");
 146 }
 147
 148
 149 static char *script =
 150 #include "ld-gld960.x"
 151 ;
 152
 153
 154 static char *
 155 gld960_get_script()
 156 {
 157 return script;
 158 }
 159
 160 struct ld_emulation_xfer_struct ld_gld960_emulation =
 161 {
 162   gld960_before_parse,
 163   gld960_syslib,
 164   gld960_hll,
 165   gld960_after_parse,
 166   gld960_after_allocation,
 167   gld960_set_output_arch,
 168   gld960_choose_target,
 169   gld960_before_allocation,
 170   gld960_get_script,
 171 };