From f3b574bf97c26bf49cad6a901c94cf831f3c362d Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 6 May 2011 14:48:56 +0000 Subject: [PATCH] 2011-05-06 Tristan Gingold * 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. --- gas/ChangeLog | 9 +++++++++ gas/read.c | 13 ------------- gas/symbols.c | 6 ------ gas/write.c | 7 ------- 4 files changed, 9 insertions(+), 26 deletions(-) diff --git a/gas/ChangeLog b/gas/ChangeLog index e538988..25a63bd 100644 --- a/gas/ChangeLog +++ b/gas/ChangeLog @@ -1,3 +1,12 @@ +2011-05-06 Tristan Gingold + + * 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 * dw2gencfi.c (SUPPORT_FRAME_LINKONCE): Define. Use throughout diff --git a/gas/read.c b/gas/read.c index 5cca366..3a1805f 100644 --- a/gas/read.c +++ b/gas/read.c @@ -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 diff --git a/gas/symbols.c b/gas/symbols.c index 91d0cdb..7dc9812 100644 --- a/gas/symbols.c +++ b/gas/symbols.c @@ -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); } diff --git a/gas/write.c b/gas/write.c index a5d2b4d..1bd1a62 100644 --- a/gas/write.c +++ b/gas/write.c @@ -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. */ -- 2.7.4