From: Tristan Gingold <gingold@adacore.com>
To: binutils Development <binutils@sourceware.org>
Subject: [Patch]: Remove dead-code in gas for vax-vms
Date: Fri, 06 May 2011 14:11:00 -0000 [thread overview]
Message-ID: <94AAC5F0-E337-4A67-B5FE-34EBFDFF4101@adacore.com> (raw)
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. */
next reply other threads:[~2011-05-06 14:11 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2011-05-06 14:11 Tristan Gingold [this message]
2011-05-06 14:44 ` Alan Modra
2011-05-06 15:00 ` Tristan Gingold
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=94AAC5F0-E337-4A67-B5FE-34EBFDFF4101@adacore.com \
--to=gingold@adacore.com \
--cc=binutils@sourceware.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).