1997-08-12 03:47:32 -04:00
|
|
|
/* top.h -- Public #include File (module.h template V1.0)
|
|
|
|
|
Copyright (C) 1995-1997 Free Software Foundation, Inc.
|
1998-05-19 06:50:55 -04:00
|
|
|
Contributed by James Craig Burley (burley@gnu.org).
|
1997-08-12 03:47:32 -04:00
|
|
|
|
|
|
|
|
This file is part of GNU Fortran.
|
|
|
|
|
|
|
|
|
|
GNU Fortran is free software; you can redistribute it and/or modify
|
|
|
|
|
it under the terms of the GNU General Public License as published by
|
|
|
|
|
the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
any later version.
|
|
|
|
|
|
|
|
|
|
GNU Fortran is distributed in the hope that it will be useful,
|
|
|
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
|
|
|
along with GNU Fortran; see the file COPYING. If not, write to
|
|
|
|
|
the Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
|
|
|
|
|
02111-1307, USA.
|
|
|
|
|
|
|
|
|
|
Owning Modules:
|
|
|
|
|
top.c
|
|
|
|
|
|
|
|
|
|
Modifications:
|
|
|
|
|
*/
|
|
|
|
|
|
|
|
|
|
/* Allow multiple inclusion to work. */
|
|
|
|
|
|
|
|
|
|
#ifndef _H_f_parse
|
|
|
|
|
#define _H_f_parse
|
|
|
|
|
|
|
|
|
|
/* Simple definitions and enumerations. */
|
|
|
|
|
|
|
|
|
|
enum _ffe_case_
|
|
|
|
|
{
|
|
|
|
|
FFE_caseNONE, /* No case conversion, match
|
|
|
|
|
case-insensitive. */
|
|
|
|
|
FFE_caseUPPER, /* Convert lowercase to uppercase, match
|
|
|
|
|
upper. */
|
|
|
|
|
FFE_caseLOWER, /* Convert uppercase to lowercase, match
|
|
|
|
|
lower. */
|
|
|
|
|
FFE_caseINITCAP, /* Match InitialCap (no meaning for
|
|
|
|
|
conversion). */
|
|
|
|
|
FFE_case
|
|
|
|
|
};
|
|
|
|
|
typedef enum _ffe_case_ ffeCase;
|
|
|
|
|
|
|
|
|
|
enum _ffeintrinsic_state_
|
|
|
|
|
{ /* State of a family of intrinsics. NOTE:
|
|
|
|
|
order IS important, see
|
|
|
|
|
ffe_intrinsic_state_max (). */
|
|
|
|
|
FFE_intrinsicstateDELETED, /* Doesn't exist at all. */
|
|
|
|
|
FFE_intrinsicstateDISABLED, /* Diagnostic if used as intrinsic. */
|
|
|
|
|
FFE_intrinsicstateHIDDEN, /* Exists only if INTRINSIC stmt. */
|
|
|
|
|
FFE_intrinsicstateENABLED, /* Exists as normal. */
|
|
|
|
|
FFE_intrinsicstate
|
|
|
|
|
};
|
|
|
|
|
typedef enum _ffeintrinsic_state_ ffeIntrinsicState;
|
|
|
|
|
|
|
|
|
|
/* Typedefs. */
|
|
|
|
|
|
|
|
|
|
typedef unsigned long ffeCounter;
|
|
|
|
|
#define ffeCounter_f "l"
|
|
|
|
|
typedef unsigned int ffeKwIndex;
|
|
|
|
|
typedef unsigned long int ffeTokenLength;
|
|
|
|
|
#define ffeTokenLength_f "l"
|
|
|
|
|
typedef void *ffeUnionLongPtr; /* unused type to cover union of long and
|
|
|
|
|
ptr. */
|
|
|
|
|
|
|
|
|
|
/* Include files needed by this one. */
|
|
|
|
|
|
|
|
|
|
#include "malloc.h"
|
|
|
|
|
#include "where.h"
|
|
|
|
|
|
|
|
|
|
/* Structure definitions. */
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/* Global objects accessed by users of this module. */
|
|
|
|
|
|
|
|
|
|
extern bool ffe_is_do_internal_checks_;
|
|
|
|
|
extern bool ffe_is_90_;
|
|
|
|
|
extern bool ffe_is_automatic_;
|
|
|
|
|
extern bool ffe_is_backslash_;
|
|
|
|
|
extern bool ffe_is_emulate_complex_;
|
|
|
|
|
extern bool ffe_is_underscoring_;
|
|
|
|
|
extern bool ffe_is_second_underscore_;
|
|
|
|
|
extern bool ffe_is_debug_kludge_;
|
|
|
|
|
extern bool ffe_is_dollar_ok_;
|
|
|
|
|
extern bool ffe_is_f2c_;
|
|
|
|
|
extern bool ffe_is_f2c_library_;
|
|
|
|
|
extern bool ffe_is_ffedebug_;
|
|
|
|
|
extern bool ffe_is_free_form_;
|
|
|
|
|
extern bool ffe_is_globals_;
|
|
|
|
|
extern bool ffe_is_ident_;
|
|
|
|
|
extern bool ffe_is_init_local_zero_;
|
|
|
|
|
extern bool ffe_is_mainprog_;
|
Restore circa-0.5.22 capabilities of `g77' driver:
Thu May 28 21:32:18 1998 Craig Burley <burley@gnu.org>
Restore circa-0.5.22 capabilities of `g77' driver:
* Make-lang.in (g77spec.o): Depend on f/version.h.
(g77version.o): New rule to compile g77 version info.
(g77$(exeext)): Depend on and link in g77version.o.
* g77spec.c: Rewrite to be more like 0.5.22 version
of g77.c, making filtering of command line smarter
so mixed Fortran and C (etc.) can be compiled, verbose
version info can be obtained, etc.
* lang-specs.h (f77-version): New "language" to support
"g77 -v" command under new gcc 2.8 regime.
* lex.c (ffelex_file_fixed): If -fnull-version, just
substitute a "source file" that prints out version info.
* top.c, top.h: Support -fnull-version.
* lang-specs.h: Use "%O" instead of OO macro to specify
object extension. Remove old stringizing cruft.
* Make-lang.in (g77.c, g77spec.o, g77.o, g77$(exeext),
g77-cross$(exeext), f771,
$(srcdir)/f/g77.info, $(srcdir)/f/g77.dvi,
$(srcdir)/f/intdoc.texi,
f77.install-common, f77.install-info, f77.install-man,
f77.uninstall, $(G77STAGESTUFF), f77.stage1, f77.stage2,
f77.stage3, f77.stage4, f77.distdir): Don't do anything
unless user specified "f77" or "F77" in $LANGUAGES either
during configuration or explicitly. For convenience of
various tests and to work around lack of the assignment
"LANGUAGES=$(BOOT_LANGUAGES)" in the "make stage1" command
of "make bootstrap" in gcc, use a touch file named "lang-f77"
to communicate whether this is the case.
* Make-lang.in (F77_FLAGS_TO_PASS): Delete this macro,
replace with minimal expansion of its former self in
each of the two instances where it was used.
* Makefile.in (HOST_CC): Delete this definition.
* com.c (index, rindex): Delete these declarations.
* proj.h: (isascii): Delete this.
* Make-lang.in (f77.install-common): Warn if `f77-install-ok'
flag-file exists, since it no longer triggers any activity.
Rename libf2c.a and f2c.h to libg2c.a and g2c.h,
normalize and simplify g77/libg2c build process:
* Make-lang.in: Remove all support for overwriting
/usr/bin/f77 etc., or whatever the actual names are
via $(prefix) and $(local_prefix). (g++ overwrites
/usr/bin/c++, but then it's often the only C++ compiler
on the system; f77 often exists on systems that are
installing g77.)
(f77.realclean): Remove obsolete target.
(g77.c, g77$(exeext)): Minor changes to look more like g++'s
stuff.
(f771): Now built with srcdir=gcc/f, not srcdir=gcc, to be
more like g++ and such.
(f/Makefile): Removed, as g++ doesn't need this rule.
(f77.install-common): No longer install f77, etc.
(f77.install-man): No longer install f77.1.
(f77.uninstall): No longer uninstall f77, f77.1, etc.
(f77.stage1, f77.stage2, f77.stage3, f77.stage4): Do work
only if "f77" appears in $(LANGUAGES).
(Note: gcc's Makefile.in's bootstrap target should set
LANGUAGES=$(BOOT_LANGUAGES) when making the stage1 target.)
* Makefile.in: Update vis-a-vis gcc/cp/Makefile.in.
(none): Remove.
(g77-only): Relocate.
(all.indirect, f771, *.o): Now assumes current directory
is this dir (gcc/f), not the parent directory.
(TAGS): Remove "echo 'parse.y,0' >> TAGS ;" line.
* config-lang.in: Delete commented-out code.
Fix stagestuff definition. Add more stuff to
diff_excludes definition. Don't create any directories.
Set outputs to f/Makefile, to get variable substition
to happen (what does that really do, anyway?!).
* g77spec.c: Rename libf2c to libg2c.
* com.h: Remove all of the gcc back-end decls,
since egcs should have all of them correct.
* com.c: Include "proj.h" before anything else,
as that's how things are supposed to work.
* ste.c: Ditto.
* bad.c: Include "flags.j" here, since some diagnostics
check flag_pedantic_errors.
* Makefile.in (f/*.o): Rebuild dependencies via
deps-kinda.
* output.j: New source file.
* Make-lang.in (F77_SRCS): Update accordingly.
* Makefile.in (OUTPUT_H): Ditto.
(deps-kinda): Ditto.
* com.c: Include "output.j" here.
* lex.c: Ditto.
From-SVN: r20506
1998-06-15 03:37:33 -04:00
|
|
|
extern bool ffe_is_null_version_;
|
1997-08-12 03:47:32 -04:00
|
|
|
extern bool ffe_is_onetrip_;
|
|
|
|
|
extern bool ffe_is_silent_;
|
|
|
|
|
extern bool ffe_is_typeless_boz_;
|
|
|
|
|
extern bool ffe_is_pedantic_;
|
|
|
|
|
extern bool ffe_is_saveall_;
|
|
|
|
|
extern bool ffe_is_ugly_args_;
|
|
|
|
|
extern bool ffe_is_ugly_assign_;
|
|
|
|
|
extern bool ffe_is_ugly_assumed_;
|
|
|
|
|
extern bool ffe_is_ugly_comma_;
|
|
|
|
|
extern bool ffe_is_ugly_complex_;
|
|
|
|
|
extern bool ffe_is_ugly_init_;
|
|
|
|
|
extern bool ffe_is_ugly_logint_;
|
|
|
|
|
extern bool ffe_is_version_;
|
|
|
|
|
extern bool ffe_is_vxt_;
|
|
|
|
|
extern bool ffe_is_warn_globals_;
|
|
|
|
|
extern bool ffe_is_warn_implicit_;
|
|
|
|
|
extern bool ffe_is_warn_surprising_;
|
|
|
|
|
extern bool ffe_is_zeros_;
|
|
|
|
|
extern ffeCase ffe_case_intrin_;
|
|
|
|
|
extern ffeCase ffe_case_match_;
|
|
|
|
|
extern ffeCase ffe_case_source_;
|
|
|
|
|
extern ffeCase ffe_case_symbol_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_badu77_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_gnu_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_f2c_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_f90_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_mil_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_unix_;
|
|
|
|
|
extern ffeIntrinsicState ffe_intrinsic_state_vxt_;
|
|
|
|
|
extern int ffe_fixed_line_length_;
|
|
|
|
|
extern mallocPool ffe_file_pool_;
|
|
|
|
|
extern mallocPool ffe_any_unit_pool_;
|
|
|
|
|
extern mallocPool ffe_program_unit_pool_;
|
|
|
|
|
extern ffeCounter ffe_count_0;
|
|
|
|
|
extern ffeCounter ffe_count_1;
|
|
|
|
|
extern ffeCounter ffe_count_2;
|
|
|
|
|
extern ffeCounter ffe_count_3;
|
|
|
|
|
extern ffeCounter ffe_count_4;
|
|
|
|
|
extern bool ffe_in_0;
|
|
|
|
|
extern bool ffe_in_1;
|
|
|
|
|
extern bool ffe_in_2;
|
|
|
|
|
extern bool ffe_in_3;
|
|
|
|
|
extern bool ffe_in_4;
|
|
|
|
|
|
|
|
|
|
/* Declare functions with prototypes. */
|
|
|
|
|
|
1998-06-10 06:18:45 -04:00
|
|
|
int ffe_decode_option (int argc, char **argv);
|
1997-08-12 03:47:32 -04:00
|
|
|
void ffe_file (ffewhereFile wf, FILE *f);
|
|
|
|
|
void ffe_init_0 (void);
|
|
|
|
|
void ffe_init_1 (void);
|
|
|
|
|
void ffe_init_2 (void);
|
|
|
|
|
void ffe_init_3 (void);
|
|
|
|
|
void ffe_init_4 (void);
|
|
|
|
|
void ffe_terminate_0 (void);
|
|
|
|
|
void ffe_terminate_1 (void);
|
|
|
|
|
void ffe_terminate_2 (void);
|
|
|
|
|
void ffe_terminate_3 (void);
|
|
|
|
|
void ffe_terminate_4 (void);
|
|
|
|
|
|
|
|
|
|
/* Define macros. */
|
|
|
|
|
|
|
|
|
|
#define ffe_case_intrin() ffe_case_intrin_
|
|
|
|
|
#define ffe_case_match() ffe_case_match_
|
|
|
|
|
#define ffe_case_source() ffe_case_source_
|
|
|
|
|
#define ffe_case_symbol() ffe_case_symbol_
|
|
|
|
|
#define ffe_intrinsic_state_badu77() ffe_intrinsic_state_badu77_
|
|
|
|
|
#define ffe_intrinsic_state_f2c() ffe_intrinsic_state_f2c_
|
|
|
|
|
#define ffe_intrinsic_state_f90() ffe_intrinsic_state_f90_
|
|
|
|
|
#define ffe_intrinsic_state_gnu() ffe_intrinsic_state_gnu_
|
|
|
|
|
#define ffe_intrinsic_state_mil() ffe_intrinsic_state_mil_
|
|
|
|
|
#define ffe_intrinsic_state_unix() ffe_intrinsic_state_unix_
|
|
|
|
|
#define ffe_intrinsic_state_vxt() ffe_intrinsic_state_vxt_
|
|
|
|
|
#define ffe_is_90() ffe_is_90_
|
|
|
|
|
#define ffe_is_automatic() ffe_is_automatic_
|
|
|
|
|
#define ffe_is_backslash() ffe_is_backslash_
|
|
|
|
|
#define ffe_is_debug_kludge() ffe_is_debug_kludge_
|
|
|
|
|
#define ffe_is_do_internal_checks() ffe_is_do_internal_checks_
|
|
|
|
|
#define ffe_is_dollar_ok() ffe_is_dollar_ok_
|
|
|
|
|
#define ffe_is_emulate_complex() ffe_is_emulate_complex_
|
|
|
|
|
#define ffe_is_f2c() ffe_is_f2c_
|
|
|
|
|
#define ffe_is_f2c_library() ffe_is_f2c_library_
|
|
|
|
|
#define ffe_is_ffedebug() ffe_is_ffedebug_
|
|
|
|
|
#define ffe_is_free_form() ffe_is_free_form_
|
|
|
|
|
#define ffe_is_globals() ffe_is_globals_
|
|
|
|
|
#define ffe_is_ident() ffe_is_ident_
|
|
|
|
|
#define ffe_is_init_local_zero() ffe_is_init_local_zero_
|
|
|
|
|
#define ffe_is_mainprog() ffe_is_mainprog_
|
Restore circa-0.5.22 capabilities of `g77' driver:
Thu May 28 21:32:18 1998 Craig Burley <burley@gnu.org>
Restore circa-0.5.22 capabilities of `g77' driver:
* Make-lang.in (g77spec.o): Depend on f/version.h.
(g77version.o): New rule to compile g77 version info.
(g77$(exeext)): Depend on and link in g77version.o.
* g77spec.c: Rewrite to be more like 0.5.22 version
of g77.c, making filtering of command line smarter
so mixed Fortran and C (etc.) can be compiled, verbose
version info can be obtained, etc.
* lang-specs.h (f77-version): New "language" to support
"g77 -v" command under new gcc 2.8 regime.
* lex.c (ffelex_file_fixed): If -fnull-version, just
substitute a "source file" that prints out version info.
* top.c, top.h: Support -fnull-version.
* lang-specs.h: Use "%O" instead of OO macro to specify
object extension. Remove old stringizing cruft.
* Make-lang.in (g77.c, g77spec.o, g77.o, g77$(exeext),
g77-cross$(exeext), f771,
$(srcdir)/f/g77.info, $(srcdir)/f/g77.dvi,
$(srcdir)/f/intdoc.texi,
f77.install-common, f77.install-info, f77.install-man,
f77.uninstall, $(G77STAGESTUFF), f77.stage1, f77.stage2,
f77.stage3, f77.stage4, f77.distdir): Don't do anything
unless user specified "f77" or "F77" in $LANGUAGES either
during configuration or explicitly. For convenience of
various tests and to work around lack of the assignment
"LANGUAGES=$(BOOT_LANGUAGES)" in the "make stage1" command
of "make bootstrap" in gcc, use a touch file named "lang-f77"
to communicate whether this is the case.
* Make-lang.in (F77_FLAGS_TO_PASS): Delete this macro,
replace with minimal expansion of its former self in
each of the two instances where it was used.
* Makefile.in (HOST_CC): Delete this definition.
* com.c (index, rindex): Delete these declarations.
* proj.h: (isascii): Delete this.
* Make-lang.in (f77.install-common): Warn if `f77-install-ok'
flag-file exists, since it no longer triggers any activity.
Rename libf2c.a and f2c.h to libg2c.a and g2c.h,
normalize and simplify g77/libg2c build process:
* Make-lang.in: Remove all support for overwriting
/usr/bin/f77 etc., or whatever the actual names are
via $(prefix) and $(local_prefix). (g++ overwrites
/usr/bin/c++, but then it's often the only C++ compiler
on the system; f77 often exists on systems that are
installing g77.)
(f77.realclean): Remove obsolete target.
(g77.c, g77$(exeext)): Minor changes to look more like g++'s
stuff.
(f771): Now built with srcdir=gcc/f, not srcdir=gcc, to be
more like g++ and such.
(f/Makefile): Removed, as g++ doesn't need this rule.
(f77.install-common): No longer install f77, etc.
(f77.install-man): No longer install f77.1.
(f77.uninstall): No longer uninstall f77, f77.1, etc.
(f77.stage1, f77.stage2, f77.stage3, f77.stage4): Do work
only if "f77" appears in $(LANGUAGES).
(Note: gcc's Makefile.in's bootstrap target should set
LANGUAGES=$(BOOT_LANGUAGES) when making the stage1 target.)
* Makefile.in: Update vis-a-vis gcc/cp/Makefile.in.
(none): Remove.
(g77-only): Relocate.
(all.indirect, f771, *.o): Now assumes current directory
is this dir (gcc/f), not the parent directory.
(TAGS): Remove "echo 'parse.y,0' >> TAGS ;" line.
* config-lang.in: Delete commented-out code.
Fix stagestuff definition. Add more stuff to
diff_excludes definition. Don't create any directories.
Set outputs to f/Makefile, to get variable substition
to happen (what does that really do, anyway?!).
* g77spec.c: Rename libf2c to libg2c.
* com.h: Remove all of the gcc back-end decls,
since egcs should have all of them correct.
* com.c: Include "proj.h" before anything else,
as that's how things are supposed to work.
* ste.c: Ditto.
* bad.c: Include "flags.j" here, since some diagnostics
check flag_pedantic_errors.
* Makefile.in (f/*.o): Rebuild dependencies via
deps-kinda.
* output.j: New source file.
* Make-lang.in (F77_SRCS): Update accordingly.
* Makefile.in (OUTPUT_H): Ditto.
(deps-kinda): Ditto.
* com.c: Include "output.j" here.
* lex.c: Ditto.
From-SVN: r20506
1998-06-15 03:37:33 -04:00
|
|
|
#define ffe_is_null_version() ffe_is_null_version_
|
1997-08-12 03:47:32 -04:00
|
|
|
#define ffe_is_onetrip() ffe_is_onetrip_
|
|
|
|
|
#define ffe_is_pedantic() ffe_is_pedantic_
|
|
|
|
|
#define ffe_is_pedantic_not_90() (ffe_is_pedantic_ && !ffe_is_90_)
|
|
|
|
|
#define ffe_is_saveall() ffe_is_saveall_
|
|
|
|
|
#define ffe_is_second_underscore() ffe_is_second_underscore_
|
|
|
|
|
#define ffe_is_silent() ffe_is_silent_
|
|
|
|
|
#define ffe_is_typeless_boz() ffe_is_typeless_boz_
|
|
|
|
|
#define ffe_is_ugly_args() ffe_is_ugly_args_
|
|
|
|
|
#define ffe_is_ugly_assign() ffe_is_ugly_assign_
|
|
|
|
|
#define ffe_is_ugly_assumed() ffe_is_ugly_assumed_
|
|
|
|
|
#define ffe_is_ugly_comma() ffe_is_ugly_comma_
|
|
|
|
|
#define ffe_is_ugly_complex() ffe_is_ugly_complex_
|
|
|
|
|
#define ffe_is_ugly_init() ffe_is_ugly_init_
|
|
|
|
|
#define ffe_is_ugly_logint() ffe_is_ugly_logint_
|
|
|
|
|
#define ffe_is_underscoring() ffe_is_underscoring_
|
|
|
|
|
#define ffe_is_version() ffe_is_version_
|
|
|
|
|
#define ffe_is_vxt() ffe_is_vxt_
|
|
|
|
|
#define ffe_is_warn_globals() ffe_is_warn_globals_
|
|
|
|
|
#define ffe_is_warn_implicit() ffe_is_warn_implicit_
|
|
|
|
|
#define ffe_is_warn_surprising() ffe_is_warn_surprising_
|
|
|
|
|
#define ffe_is_zeros() ffe_is_zeros_
|
|
|
|
|
#define ffe_fixed_line_length() ffe_fixed_line_length_
|
|
|
|
|
#define ffe_pool_file() (ffe_file_pool_)
|
|
|
|
|
#define ffe_pool_any_unit() (ffe_any_unit_pool_)
|
|
|
|
|
#define ffe_pool_program_unit() (ffe_program_unit_pool_)
|
|
|
|
|
#define ffe_set_case_intrin(f) (ffe_case_intrin_ = (f))
|
|
|
|
|
#define ffe_set_case_match(f) (ffe_case_match_ = (f))
|
|
|
|
|
#define ffe_set_case_source(f) (ffe_case_source_ = (f))
|
|
|
|
|
#define ffe_set_case_symbol(f) (ffe_case_symbol_ = (f))
|
|
|
|
|
#define ffe_set_intrinsic_state_badu77(s) (ffe_intrinsic_state_badu77_ = (s))
|
|
|
|
|
#define ffe_set_intrinsic_state_f2c(s) (ffe_intrinsic_state_f2c_ = (s))
|
|
|
|
|
#define ffe_set_intrinsic_state_f90(s) (ffe_intrinsic_state_f90_ = (s))
|
|
|
|
|
#define ffe_set_intrinsic_state_gnu(s) (ffe_intrinsic_state_gnu_ = (s))
|
|
|
|
|
#define ffe_set_intrinsic_state_mil(s) (ffe_intrinsic_state_mil_ = (s))
|
|
|
|
|
#define ffe_set_intrinsic_state_unix(s) (ffe_intrinsic_state_unix_ = (s))
|
|
|
|
|
#define ffe_set_intrinsic_state_vxt(s) (ffe_intrinsic_state_vxt_ = (s))
|
|
|
|
|
#define ffe_set_is_90(f) (ffe_is_90_ = (f))
|
|
|
|
|
#define ffe_set_is_automatic(f) (ffe_is_automatic_ = (f))
|
|
|
|
|
#define ffe_set_is_backslash(f) (ffe_is_backslash_ = (f))
|
|
|
|
|
#define ffe_set_is_debug_kludge(f) (ffe_is_debug_kludge_ = (f))
|
|
|
|
|
#define ffe_set_is_do_internal_checks(f) (ffe_set_is_do_internal_checks_ = (f))
|
|
|
|
|
#define ffe_set_is_dollar_ok(f) (ffe_is_dollar_ok_ = (f))
|
|
|
|
|
#define ffe_set_is_emulate_complex(f) (ffe_is_emulate_complex_ = (f))
|
|
|
|
|
#define ffe_set_is_f2c(f) (ffe_is_f2c_ = (f))
|
|
|
|
|
#define ffe_set_is_f2c_library(f) (ffe_is_f2c_library_ = (f))
|
|
|
|
|
#define ffe_set_is_ffedebug(f) (ffe_is_ffedebug_ = (f))
|
|
|
|
|
#define ffe_set_is_free_form(f) (ffe_is_free_form_ = (f))
|
|
|
|
|
#define ffe_set_is_globals(f) (ffe_is_globals_ = (f))
|
|
|
|
|
#define ffe_set_is_ident(f) (ffe_is_ident_ = (f))
|
|
|
|
|
#define ffe_set_is_init_local_zero(f) (ffe_is_init_local_zero_ = (f))
|
|
|
|
|
#define ffe_set_is_mainprog(f) (ffe_is_mainprog_ = (f))
|
Restore circa-0.5.22 capabilities of `g77' driver:
Thu May 28 21:32:18 1998 Craig Burley <burley@gnu.org>
Restore circa-0.5.22 capabilities of `g77' driver:
* Make-lang.in (g77spec.o): Depend on f/version.h.
(g77version.o): New rule to compile g77 version info.
(g77$(exeext)): Depend on and link in g77version.o.
* g77spec.c: Rewrite to be more like 0.5.22 version
of g77.c, making filtering of command line smarter
so mixed Fortran and C (etc.) can be compiled, verbose
version info can be obtained, etc.
* lang-specs.h (f77-version): New "language" to support
"g77 -v" command under new gcc 2.8 regime.
* lex.c (ffelex_file_fixed): If -fnull-version, just
substitute a "source file" that prints out version info.
* top.c, top.h: Support -fnull-version.
* lang-specs.h: Use "%O" instead of OO macro to specify
object extension. Remove old stringizing cruft.
* Make-lang.in (g77.c, g77spec.o, g77.o, g77$(exeext),
g77-cross$(exeext), f771,
$(srcdir)/f/g77.info, $(srcdir)/f/g77.dvi,
$(srcdir)/f/intdoc.texi,
f77.install-common, f77.install-info, f77.install-man,
f77.uninstall, $(G77STAGESTUFF), f77.stage1, f77.stage2,
f77.stage3, f77.stage4, f77.distdir): Don't do anything
unless user specified "f77" or "F77" in $LANGUAGES either
during configuration or explicitly. For convenience of
various tests and to work around lack of the assignment
"LANGUAGES=$(BOOT_LANGUAGES)" in the "make stage1" command
of "make bootstrap" in gcc, use a touch file named "lang-f77"
to communicate whether this is the case.
* Make-lang.in (F77_FLAGS_TO_PASS): Delete this macro,
replace with minimal expansion of its former self in
each of the two instances where it was used.
* Makefile.in (HOST_CC): Delete this definition.
* com.c (index, rindex): Delete these declarations.
* proj.h: (isascii): Delete this.
* Make-lang.in (f77.install-common): Warn if `f77-install-ok'
flag-file exists, since it no longer triggers any activity.
Rename libf2c.a and f2c.h to libg2c.a and g2c.h,
normalize and simplify g77/libg2c build process:
* Make-lang.in: Remove all support for overwriting
/usr/bin/f77 etc., or whatever the actual names are
via $(prefix) and $(local_prefix). (g++ overwrites
/usr/bin/c++, but then it's often the only C++ compiler
on the system; f77 often exists on systems that are
installing g77.)
(f77.realclean): Remove obsolete target.
(g77.c, g77$(exeext)): Minor changes to look more like g++'s
stuff.
(f771): Now built with srcdir=gcc/f, not srcdir=gcc, to be
more like g++ and such.
(f/Makefile): Removed, as g++ doesn't need this rule.
(f77.install-common): No longer install f77, etc.
(f77.install-man): No longer install f77.1.
(f77.uninstall): No longer uninstall f77, f77.1, etc.
(f77.stage1, f77.stage2, f77.stage3, f77.stage4): Do work
only if "f77" appears in $(LANGUAGES).
(Note: gcc's Makefile.in's bootstrap target should set
LANGUAGES=$(BOOT_LANGUAGES) when making the stage1 target.)
* Makefile.in: Update vis-a-vis gcc/cp/Makefile.in.
(none): Remove.
(g77-only): Relocate.
(all.indirect, f771, *.o): Now assumes current directory
is this dir (gcc/f), not the parent directory.
(TAGS): Remove "echo 'parse.y,0' >> TAGS ;" line.
* config-lang.in: Delete commented-out code.
Fix stagestuff definition. Add more stuff to
diff_excludes definition. Don't create any directories.
Set outputs to f/Makefile, to get variable substition
to happen (what does that really do, anyway?!).
* g77spec.c: Rename libf2c to libg2c.
* com.h: Remove all of the gcc back-end decls,
since egcs should have all of them correct.
* com.c: Include "proj.h" before anything else,
as that's how things are supposed to work.
* ste.c: Ditto.
* bad.c: Include "flags.j" here, since some diagnostics
check flag_pedantic_errors.
* Makefile.in (f/*.o): Rebuild dependencies via
deps-kinda.
* output.j: New source file.
* Make-lang.in (F77_SRCS): Update accordingly.
* Makefile.in (OUTPUT_H): Ditto.
(deps-kinda): Ditto.
* com.c: Include "output.j" here.
* lex.c: Ditto.
From-SVN: r20506
1998-06-15 03:37:33 -04:00
|
|
|
#define ffe_set_is_null_version(f) (ffe_is_null_version_ = (f))
|
1997-08-12 03:47:32 -04:00
|
|
|
#define ffe_set_is_onetrip(f) (ffe_is_onetrip_ = (f))
|
|
|
|
|
#define ffe_set_is_pedantic(f) (ffe_is_pedantic_ = (f))
|
|
|
|
|
#define ffe_set_is_saveall(f) (ffe_is_saveall_ = (f))
|
|
|
|
|
#define ffe_set_is_second_underscore(f) (ffe_is_second_underscore_ = (f))
|
|
|
|
|
#define ffe_set_is_silent(f) (ffe_is_silent_ = (f))
|
|
|
|
|
#define ffe_set_is_typeless_boz(f) (ffe_is_typeless_boz_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_args(f) (ffe_is_ugly_args_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_assign(f) (ffe_is_ugly_assign_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_assumed(f) (ffe_is_ugly_assumed_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_comma(f) (ffe_is_ugly_comma_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_complex(f) (ffe_is_ugly_complex_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_init(f) (ffe_is_ugly_init_ = (f))
|
|
|
|
|
#define ffe_set_is_ugly_logint(f) (ffe_is_ugly_logint_ = (f))
|
|
|
|
|
#define ffe_set_is_underscoring(f) (ffe_is_underscoring_ = (f))
|
|
|
|
|
#define ffe_set_is_version(f) (ffe_is_version_ = (f))
|
|
|
|
|
#define ffe_set_is_vxt(f) (ffe_is_vxt_ = (f))
|
|
|
|
|
#define ffe_set_is_warn_globals(f) (ffe_is_warn_globals_ = (f))
|
|
|
|
|
#define ffe_set_is_warn_implicit(f) (ffe_is_warn_implicit_ = (f))
|
|
|
|
|
#define ffe_set_is_warn_surprising(f) (ffe_is_warn_surprising_ = (f))
|
|
|
|
|
#define ffe_set_is_zeros(f) (ffe_is_zeros_ = (f))
|
|
|
|
|
#define ffe_set_fixed_line_length(l) (ffe_fixed_line_length_ = (l))
|
|
|
|
|
#define ffe_state_max(s1,s2) ((s1) > (s2) ? (s1) : (s2))
|
|
|
|
|
|
|
|
|
|
/* End of #include file. */
|
|
|
|
|
|
|
|
|
|
#endif
|
