* com.c (lang_init_options): New function.
* top.c (ffe_decode_option): Remove all trace of -fset-g77-defaults.
Set ffe_is_do_internal_checks_ with -version.
* lang-options.h: Likewise.
* lang-specs.h: Likewise.
From-SVN: r20276
-Fri Jun 5 15:53:17 1998 Per Bothner <bothner@cygnus.com>
-
- * g77spec.c (lang_specific_pre_link, lang_specific_extra_ofiles):
- Define - update needed by gcc.c change.
-
Mon Jun 1 19:37:42 1998 Craig Burley <burley@gnu.org>
* com.c (ffecom_init_0): Fix setup of INTEGER(KIND=7)
+Sun Jun 7 14:04:34 1998 Richard Henderson <rth@cygnus.com>
+
+ * com.c (lang_init_options): New function.
+ * top.c (ffe_decode_option): Remove all trace of -fset-g77-defaults.
+ Set ffe_is_do_internal_checks_ with -version.
+ * lang-options.h: Likewise.
+ * lang-specs.h: Likewise.
+
+Fri Jun 5 15:53:17 1998 Per Bothner <bothner@cygnus.com>
+
+ * g77spec.c (lang_specific_pre_link, lang_specific_extra_ofiles):
+ Define - update needed by gcc.c change.
+
Fri May 15 01:44:22 1998 Mumit Khan <khan@xraylith.wisc.edu>
* Make-lang.in (f77.mostlyclean): Add missing exeext.
return "f77";
}
+void
+lang_init_options ()
+{
+ /* Set default options for Fortran. */
+ flag_move_all_movables = 1;
+ flag_reduce_all_givs = 1;
+ flag_argument_noalias = 2;
+}
+
void
lang_init ()
{
"-fversion",
"-fnull-version",
- "-fset-g77-defaults",
/*"-fident",*/
/*"-fno-ident",*/
"-ff66",
%c %{Os:-D__OPTIMIZE_SIZE__} %{O*:%{!O0:-D__OPTIMIZE__}} -traditional\
%{g*} %{W*} %{w} %{pedantic*} %{H} %{d*} %C %{D*} %{U*} %{i*} %Z\
%i %{!M:%{!MM:%{!E:%{!pipe:%g.i}}}}%{E:%W{o*}}%{M:%W{o*}}%{MM:%W{o*}} |\n",
- "%{!M:%{!MM:%{!E:f771 %{!pipe:%g.i} -fset-g77-defaults %(f771) \
+ "%{!M:%{!MM:%{!E:f771 %{!pipe:%g.i} %(f771) \
%{!Q:-quiet} -dumpbase %b.F %{d*} %{m*} %{a}\
%{g*} %{O*} %{W*} %{w} %{pedantic*} \
%{v:-version -fversion} %{pg:-p} %{p} %{f*} %{I*}\
{"ratfor %{C} %{v}\
%{C:%{!E:%eGNU C does not support -C without using -E}}\
%{!E:%{!pipe:-o %g.f}}%{E:%W{o*}} %i |\n",
- "%{!E:f771 %{!pipe:%g.f} -fset-g77-defaults %(f771) \
+ "%{!E:f771 %{!pipe:%g.f} %(f771) \
%{!Q:-quiet} -dumpbase %b.r %{d*} %{m*} %{a}\
%{g*} %{O*} %{W*} %{w} %{pedantic*} \
%{v:-version -fversion} %{pg:-p} %{p} %{f*} %{I*}\
{".f", {"@f77"}},
{".for", {"@f77"}},
{"@f77",
- {"%{!M:%{!MM:%{!E:f771 %i -fset-g77-defaults %(f771) \
+ {"%{!M:%{!MM:%{!E:f771 %i %(f771) \
%{!Q:-quiet} -dumpbase %b.f %{d*} %{m*} %{a}\
%{g*} %{O*} %{W*} %{w} %{pedantic*}\
%{v:-version -fversion} %{pg:-p} %{p} %{f*} %{I*}\
/* Externals defined here. */
int flag_traditional; /* Shouldn't need this (C front end only)! */
-bool ffe_is_do_internal_checks_ = TRUE;
+bool ffe_is_do_internal_checks_ = FALSE;
bool ffe_is_90_ = FFETARGET_defaultIS_90;
bool ffe_is_automatic_ = FFETARGET_defaultIS_AUTOMATIC;
bool ffe_is_backslash_ = FFETARGET_defaultIS_BACKSLASH;
if (opt[1] == 'f')
{
if (strcmp (&opt[2], "version") == 0)
- ffe_set_is_version (TRUE);
- else if (strcmp (&opt[2], "null-version") == 0)
- ; /* Someday generate program to print version
- info. */
- else if (strcmp (&opt[2], "set-g77-defaults") == 0)
{
- ffe_is_do_internal_checks_ = 0;
-#if BUILT_FOR_270 /* User must have applied patch (circa 2.7.2 and beyond). */
-#if 0
- flag_rerun_loop_opt = 1;
-#endif
- flag_move_all_movables = 1;
- flag_reduce_all_givs = 1;
- flag_argument_noalias = 2;
-#endif
+ ffe_set_is_version (TRUE);
+ ffe_is_do_internal_checks_ = TRUE;
}
+ else if (strcmp (&opt[2], "null-version") == 0)
+ ; /* Someday generate program to print version info. */
else if (strcmp (&opt[2], "ident") == 0)
ffe_set_is_ident (TRUE);
else if (strcmp (&opt[2], "no-ident") == 0)