This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] Remove unused code
- From: Eric Botcazou <ebotcazou at adacore dot com>
- To: gcc-patches at gcc dot gnu dot org
- Date: Fri, 4 Jun 2010 12:38:55 +0200
- Subject: [Ada] Remove unused code
Tested on i586-suse-linux, applied on the mainline.
2010-06-04 Eric Botcazou <ebotcazou@adacore.com>
* gnatlink.adb (gnatlink): Remove support for -fsjlj switch.
* gcc-interface/lang-specs.h: Likewise.
--
Eric Botcazou
Index: gcc-interface/lang-specs.h
===================================================================
--- gcc-interface/lang-specs.h (revision 160230)
+++ gcc-interface/lang-specs.h (working copy)
@@ -6,7 +6,7 @@
* *
* C Header File *
* *
- * Copyright (C) 1992-2009, Free Software Foundation, Inc. *
+ * Copyright (C) 1992-2010, Free Software Foundation, Inc. *
* *
* GNAT is free software; you can redistribute it and/or modify it under *
* terms of the GNU General Public License as published by the Free Soft- *
@@ -38,9 +38,6 @@
%{c|S:%{o*:-auxbase-strip %*}%{!o*:-auxbase %b}}%{!c:%{!S:-auxbase %b}} \
%{O*} %{W*} %{w} %{p} %{pg:-p} %{a} %{d*} %{f*}\
%{coverage:-fprofile-arcs -ftest-coverage} "
-#if CONFIG_DUAL_EXCEPTIONS
- "%{fRTS=sjlj:-fsjlj} "
-#endif
"%{gnatea:-gnatez} %{g*&m*} "
#if defined(TARGET_VXWORKS_RTP)
"%{fRTS=rtp:-mrtp} "
Index: gnatlink.adb
===================================================================
--- gnatlink.adb (revision 160230)
+++ gnatlink.adb (working copy)
@@ -1648,15 +1648,6 @@ begin
Linker_Options.Increment_Last;
Linker_Options.Table (Linker_Options.Last) :=
new String'("-mrtp");
-
- -- Pass -fsjlj to the linker if --RTS=sjlj was passed
-
- elsif Arg'Length > 9
- and then Arg (Arg'First + 6 .. Arg'First + 9) = "sjlj"
- then
- Linker_Options.Increment_Last;
- Linker_Options.Table (Linker_Options.Last) :=
- new String'("-fsjlj");
end if;
end if;
end;