darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

2011-05-06 Tristan Gingold <gingold@adacore.com>

Browse source 
* read.c (s_comm_internal): Remove code for OBJ_VMS.
	(s_data): Ditto.
	(s_text): Ditto.
	* write.c (write_object_file): Ditto.
	* symbols.c (define_sym_at_dot): Ditto.
	(colon): Ditto.
This commit is contained in:
Tristan Gingold 2011-05-06 14:48:56 +00:00
parent 19094d10cd
commit f3b574bf97
4 changed files with 9 additions and 26 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
gas/ChangeLog
View file

@ -1,3 +1,12 @@
2011-05-06 Tristan Gingold <gingold@adacore.com>
* read.c (s_comm_internal): Remove code for OBJ_VMS.
(s_data): Ditto.
(s_text): Ditto.
* write.c (write_object_file): Ditto.
* symbols.c (define_sym_at_dot): Ditto.
(colon): Ditto.
2011-05-05 Alan Modra <amodra@gmail.com>
* dw2gencfi.c (SUPPORT_FRAME_LINKONCE): Define. Use throughout

13
gas/read.c
View file

@ -1508,13 +1508,6 @@ s_comm_internal (int param,
S_SET_VALUE (symbolP, (valueT) size);
S_SET_EXTERNAL (symbolP);
S_SET_SEGMENT (symbolP, bfd_com_section_ptr);
#ifdef OBJ_VMS
{
extern int flag_one;
if (size == 0 || !flag_one)
S_GET_OTHER (symbolP) = const_flag;
}
#endif
}
demand_empty_rest_of_line ();
@ -1653,9 +1646,6 @@ s_data (int ignore ATTRIBUTE_UNUSED)
subseg_set (section, (subsegT) temp);
#ifdef OBJ_VMS
const_flag = 0;
#endif
demand_empty_rest_of_line ();
}
@ -3463,9 +3453,6 @@ s_text (int ignore ATTRIBUTE_UNUSED)
temp = get_absolute_expression ();
subseg_set (text_section, (subsegT) temp);
demand_empty_rest_of_line ();
#ifdef OBJ_VMS
const_flag &= ~IN_DEFAULT_SECTION;
#endif
}
/* .weakref x, y sets x as an alias to y that, as long as y is not

6
gas/symbols.c
View file

@ -250,9 +250,6 @@ static void
define_sym_at_dot (symbolS *symbolP)
{
symbolP->sy_frag = frag_now;
#ifdef OBJ_VMS
S_SET_OTHER (symbolP, const_flag);
#endif
S_SET_VALUE (symbolP, (valueT) frag_now_fix ());
S_SET_SEGMENT (symbolP, now_seg);
}
@ -447,9 +444,6 @@ colon (/* Just seen "x:" - rattle symbols & frags. */
{
symbolP = symbol_new (sym_name, now_seg, (valueT) frag_now_fix (),
frag_now);
#ifdef OBJ_VMS
S_SET_OTHER (symbolP, const_flag);
#endif /* OBJ_VMS */
symbol_table_insert (symbolP);
}

7
gas/write.c
View file

@ -1734,13 +1734,6 @@ write_object_file (void)
}
}
#ifdef OBJ_VMS
/* Under VMS we try to be compatible with VAX-11 "C". Thus, we call
a routine to check for the definition of the procedure "_main",
and if so -- fix it up so that it can be program entry point. */
vms_check_for_main ();
#endif /* OBJ_VMS */
/* From now on, we don't care about sub-segments. Build one frag chain
for each segment. Linked thru fr_next. */