7607462a23cfe827980f8b06850571a6a2694f2c
[external/binutils.git] / ld / ld-gld.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 */
23
24 /* 
25  * emulate the original gld
26  *
27  *  Written by Steve Chamberlain steve@cygnus.com
28  */
29
30
31 #include "sysdep.h"
32 #include "bfd.h"
33
34
35 #include "ld.h"
36 #include "config.h"
37 #include "ld-emul.h"
38 #include "ldfile.h"
39 #include "ldmisc.h"
40
41 extern  boolean lang_float_flag;
42
43
44 extern enum bfd_architecture ldfile_output_architecture;
45 extern unsigned long ldfile_output_machine;
46 extern char *ldfile_output_machine_name;
47
48 extern bfd *output_bfd;
49
50
51
52 static void gld_before_parse()
53 {
54   ldfile_add_library_path("/lib");
55   ldfile_add_library_path("/usr/lib");
56   ldfile_add_library_path("/usr/local/lib/lib");
57   ldfile_output_architecture = bfd_arch_sparc;
58 }
59
60
61 static void 
62 gld_after_parse()
63 {
64
65 }
66
67 static void
68 gld_after_allocation()
69 {
70
71 }
72
73 static void
74 gld_before_allocation()
75 {
76
77 }
78
79
80 static void
81 gld_set_output_arch()
82 {
83   /* Set the output architecture and machine if possible */
84   unsigned long  machine = 0;
85   bfd_set_arch_mach(output_bfd, ldfile_output_architecture, machine);
86 }
87
88 static char *
89 gld_choose_target()
90 {
91   char *from_outside = getenv(TARGET_ENVIRON);
92   if (from_outside != (char *)NULL)
93     return from_outside;
94   return GLD_TARGET;
95 }
96
97 static void
98 gld_syslib()
99 {
100   info("%S SYSLIB ignored\n");
101 }
102
103 static void
104 gld_hll(ignore)
105 char  *ignore;
106 {
107   info("%S HLL ignored\n");
108 }
109
110 static char *gld_script = 
111 #include "ld-gld.x"
112 ;
113
114 static char *gld_script_option_Ur  =  
115 #include "ld-gld-Ur.x"
116 ;
117
118 static char *gld_script_option_r  =  
119 #include "ld-gld-r.x"
120 ;            
121                              
122 static char *gld_get_script()
123 {                            
124   extern ld_config_type config;
125   if (config.relocateable_output == true &&
126       config.build_constructors == true) {
127     return gld_script_option_Ur;
128   }
129   if (config.relocateable_output) {
130     return gld_script_option_r;
131   }
132         
133   return gld_script;
134 }
135 struct ld_emulation_xfer_struct ld_gld_emulation = 
136 {
137   gld_before_parse,
138   gld_syslib,
139   gld_hll,
140   gld_after_parse,
141   gld_after_allocation,
142   gld_set_output_arch,
143   gld_choose_target,
144   gld_before_allocation,
145   gld_get_script,
146 };
147