darlinghq/darling-gdb
1
0
Fork 0
mirror of https://github.com/darlinghq/darling-gdb.git synced 2025-01-19 07:24:48 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Steve Chamberlain 1991-05-03 23:52:48 +00:00
parent 592ecfb22e
commit b63165349f
8 changed files with 53 additions and 41 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
bfd/aout.c
View File

@ -1249,7 +1249,7 @@ swap_std_reloc_out (abfd, g, natptr)
bfd_h_putlong (abfd, g->address, natptr->r_address);
r_length = g->howto->size; /* Size as a power of two */
r_length = g->howto->size ; /* Size as a power of two */
r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
/* r_baserel, r_jmptable, r_relative??? FIXME-soon */
r_baserel = 0;
@ -1633,14 +1633,14 @@ sunos4_squirt_out_relocs (abfd, section)
for (natptr = native;
count != 0;
--count, natptr += each_size, ++generic)
swap_ext_reloc_out (abfd, generic, (struct reloc_ext_bytes *)native);
swap_ext_reloc_out (abfd, *generic, (struct reloc_ext_bytes *)natptr);
}
else
{
for (natptr = native;
count != 0;
--count, natptr += each_size, ++generic)
swap_std_reloc_out(abfd, generic, (struct reloc_std_bytes *)native);
swap_std_reloc_out(abfd, *generic, (struct reloc_std_bytes *)natptr);
}
if ( bfd_write ((PTR) native, 1, natsize, abfd) != natsize) {

6
bfd/sunos.c
View File

@ -1249,7 +1249,7 @@ swap_std_reloc_out (abfd, g, natptr)
bfd_h_putlong (abfd, g->address, natptr->r_address);
r_length = g->howto->size; /* Size as a power of two */
r_length = g->howto->size ; /* Size as a power of two */
r_pcrel = (int) g->howto->pc_relative; /* Relative to PC? */
/* r_baserel, r_jmptable, r_relative??? FIXME-soon */
r_baserel = 0;
@ -1633,14 +1633,14 @@ sunos4_squirt_out_relocs (abfd, section)
for (natptr = native;
count != 0;
--count, natptr += each_size, ++generic)
swap_ext_reloc_out (abfd, generic, (struct reloc_ext_bytes *)native);
swap_ext_reloc_out (abfd, *generic, (struct reloc_ext_bytes *)natptr);
}
else
{
for (natptr = native;
count != 0;
--count, natptr += each_size, ++generic)
swap_std_reloc_out(abfd, generic, (struct reloc_std_bytes *)native);
swap_std_reloc_out(abfd, *generic, (struct reloc_std_bytes *)natptr);
}
if ( bfd_write ((PTR) native, 1, natsize, abfd) != natsize) {

2
ld/ld.h
View File

@ -85,7 +85,7 @@ typedef struct
This is used mainly to finish of sets that were built. */
boolean unix_relocate;
boolean sort_common;
} ld_config_type;
#define set_asymbol_chain(x,y) ((x)->udata = (PTR)y)
#define get_asymbol_chain(x) ((asymbol **)((x)->udata))

5
ld/ldgram.y
View File

@ -117,7 +117,7 @@ boolean ldgram_had_equals = false;
%token MEMORY
%token DSECT NOLOAD COPY INFO OVERLAY
%token NAME DEFINED TARGET_K SEARCH_DIR MAP ENTRY
%token OPTION_e OPTION_c OPTION_noinhibit_exec OPTION_s OPTION_S
%token OPTION_e OPTION_c OPTION_noinhibit_exec OPTION_s OPTION_S OPTION_sort_common
%token OPTION_format OPTION_F OPTION_u
%token OPTION_d OPTION_dc OPTION_dp OPTION_x OPTION_X OPTION_defsym
@ -209,6 +209,9 @@ command_line_option:
{
force_make_executable = true;
}
| OPTION_sort_common {
config.sort_common = true;
}
| OPTION_d {
command_line.force_common_definition = true;
}

70
ld/ldlang.c
View File

@ -1659,18 +1659,23 @@ DEFUN_VOID(lang_check)
/*
* run through all the global common symbols and tie them
* to the output section requested.
*/
* to the output section requested.
*
As an experiment we do this 4 times, once for all the byte sizes,
then all the two bytes, all the four bytes and then everything else
*/
static void
DEFUN_VOID(lang_common)
{
ldsym_type *lgs;
size_t power;
if (config.relocateable_output == false ||
command_line.force_common_definition== true) {
for (lgs = symbol_head;
lgs != (ldsym_type *)NULL;
lgs=lgs->next)
for (power = 1; (config.sort_common == true && power == 1) || (power <= 16); power <<=1) {
for (lgs = symbol_head;
lgs != (ldsym_type *)NULL;
lgs=lgs->next)
{
asymbol *com ;
unsigned int power_of_two;
@ -1706,44 +1711,46 @@ DEFUN_VOID(lang_common)
align = 16;
break;
}
if (config.sort_common == false || align == power) {
/* Change from a common symbol into a definition of
a symbol */
lgs->sdefs_chain = lgs->scoms_chain;
lgs->scoms_chain = (asymbol **)NULL;
commons_pending--;
/* Point to the correct common section */
com->section =
((lang_input_statement_type *)
(com->the_bfd->usrdata))->common_section;
/* Fix the size of the common section */
com->section->size = ALIGN(com->section->size, align);
/* Remember if this is the biggest alignment ever seen */
if (power_of_two > com->section->alignment_power) {
com->section->alignment_power = power_of_two;
}
/* Change from a common symbol into a definition of
a symbol */
lgs->sdefs_chain = lgs->scoms_chain;
lgs->scoms_chain = (asymbol **)NULL;
commons_pending--;
/* Point to the correct common section */
com->section =
((lang_input_statement_type *)
(com->the_bfd->usrdata))->common_section;
/* Fix the size of the common section */
com->section->size = ALIGN(com->section->size, align);
/* Symbol stops being common and starts being global, but
we remember that it was common once. */
/* Remember if this is the biggest alignment ever seen */
if (power_of_two > com->section->alignment_power) {
com->section->alignment_power = power_of_two;
}
com->flags = BSF_EXPORT | BSF_GLOBAL | BSF_OLD_COMMON;
com->value = com->section->size;
/* Symbol stops being common and starts being global, but
we remember that it was common once. */
com->flags = BSF_EXPORT | BSF_GLOBAL | BSF_OLD_COMMON;
if (write_map)
if (write_map)
{
printf ("Allocating common %s: %x at %x\n",
printf ("Allocating common %s: %x at %x %s\n",
lgs->name,
(unsigned) size,
(unsigned) com->section->size);
(unsigned) com->value,
com->the_bfd->filename);
}
com->value = com->section->size;
com->section->size += size;
com->section->size += size;
}
}
}
}
}
@ -1829,6 +1836,7 @@ DEFUN(lang_set_flags,(ptr, flags),
ptr->flag_executable= state;
break;
case 'L':
case 'I':
ptr->flag_loadable= state;
break;
default:

2
ld/ldlang.h
View File

@ -274,7 +274,7 @@ PROTO(void,lang_set_flags,(lang_section_flags_type *, CONST char *));
PROTO(void,lang_add_output,(CONST char *));
PROTO(void,lang_final,(void));
PROTO(struct symbol_cache_entry *,create_symbol,(CONST char *, unsigned int, struct sec_struct *));
PROTO(struct symbol_cache_entry *,create_symbol,(CONST char *, unsigned int, struct sec *));
PROTO(void ,lang_process,(void));
PROTO(void ,lang_section_start,(CONST char *, union etree_union *));
PROTO(void,lang_add_entry,(CONST char *));

1
ld/ldlex.l
View File

@ -275,6 +275,7 @@ WHITE [ \t]+
"@" { return '}'; }
"\ -defsym\ " { ldgram_in_defsym = true; return OPTION_defsym; }
"\ -noinhibit_exec\ " { return OPTION_noinhibit_exec; }
"\ -sort_common\ " { return OPTION_sort_common;}
"\ -format\ " { return OPTION_format; }
"\ -n\ " { return OPTION_n; }
"\ -r\ " { return OPTION_r; }

2
ld/ldmain.c
View File

@ -51,7 +51,7 @@ char *output_filename = "a.out";
char *program_name;
/* The file that we're creating */
bfd *output_bfd;
bfd *output_bfd = 0;
extern boolean option_v;