Commit ec923185 by Sa Liu

Add new parameter to NAMED_INTCST and new field standard to struct intmod_sym.

From-SVN: r135340
parent 52191452
...@@ -91,6 +91,7 @@ typedef struct ...@@ -91,6 +91,7 @@ typedef struct
int id; int id;
const char *name; const char *name;
int value; int value;
int standard;
} }
intmod_sym; intmod_sym;
...@@ -4771,13 +4772,13 @@ use_iso_fortran_env_module (void) ...@@ -4771,13 +4772,13 @@ use_iso_fortran_env_module (void)
int i; int i;
intmod_sym symbol[] = { intmod_sym symbol[] = {
#define NAMED_INTCST(a,b,c) { a, b, 0 }, #define NAMED_INTCST(a,b,c,d) { a, b, 0, d },
#include "iso-fortran-env.def" #include "iso-fortran-env.def"
#undef NAMED_INTCST #undef NAMED_INTCST
{ ISOFORTRANENV_INVALID, NULL, -1234 } }; { ISOFORTRANENV_INVALID, NULL, -1234, 0 } };
i = 0; i = 0;
#define NAMED_INTCST(a,b,c) symbol[i++].value = c; #define NAMED_INTCST(a,b,c,d) symbol[i++].value = c;
#include "iso-fortran-env.def" #include "iso-fortran-env.def"
#undef NAMED_INTCST #undef NAMED_INTCST
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment