OpenE2K
/
gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

gnatlink.adb (gnatlink): Remove support for -fsjlj switch. 

* gnatlink.adb (gnatlink): Remove support for -fsjlj switch.
	* gcc-interface/lang-specs.h: Likewise.

From-SVN: r160257
This commit is contained in:
Eric Botcazou 2010-06-04 10:41:57 +00:00 committed by Eric Botcazou
parent 07fc109c14
commit addcce0450
3 changed files with 6 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/ada/ChangeLog
View File

@ -1,3 +1,8 @@
2010-06-04 Eric Botcazou <ebotcazou@adacore.com>
* gnatlink.adb (gnatlink): Remove support for -fsjlj switch.
* gcc-interface/lang-specs.h: Likewise.
2010-06-03 H.J. Lu <hongjiu.lu@intel.com>
PR c++/44294

5
gcc/ada/gcc-interface/lang-specs.h
View File

@ -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} "

9
gcc/ada/gnatlink.adb
View File

@ -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;