This is the mail archive of the
binutils@sourceware.org
mailing list for the binutils project.
[Patch]: Remove dead-code in gas for vax-vms
- From: Tristan Gingold <gingold at adacore dot com>
- To: binutils Development <binutils at sourceware dot org>
- Date: Fri, 6 May 2011 16:10:59 +0200
- Subject: [Patch]: Remove dead-code in gas for vax-vms
Hi,
there is some code between #ifdef OBJ_VMS/#endif in common gas code that may have been used for vax-vms.
But this platform is unsupported, so we may clean that up.
Ok for trunk ?
Tristan.
gas/
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.
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. */