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

* intrinsic.c (add_sym_2s): Use correct function types. 

From-SVN: r83071
This commit is contained in:
Paul Brook 2004-06-13 23:23:24 +00:00 committed by Paul Brook
parent a9e7b9d395
commit 6956a6f38a
2 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/fortran/ChangeLog
View File

@ -1,3 +1,7 @@
2004-06-14 Paul Brook <paul@codesourcery.com>
* intrinsic.c (add_sym_2s): Use correct function types.
2004-06-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* Make-lang.in (F95_OBJS, F95_PARSER_OBJS): Alphabetize. Move data.c

8
gcc/fortran/intrinsic.c
View File

@ -434,8 +434,8 @@ static void add_sym_2 (const char *name, int elemental, int actual_ok, bt type,
static void add_sym_2s (const char *name, int elemental, int actual_ok, bt type,
int kind,
try (*check)(gfc_expr *,gfc_expr *,gfc_expr *),
gfc_expr *(*simplify)(gfc_expr *,gfc_expr *,gfc_expr *),
try (*check)(gfc_expr *,gfc_expr *),
gfc_expr *(*simplify)(gfc_expr *,gfc_expr *),
void (*resolve)(gfc_code *),
const char* a1, bt type1, int kind1, int optional1,
const char* a2, bt type2, int kind2, int optional2
@ -444,8 +444,8 @@ static void add_sym_2s (const char *name, int elemental, int actual_ok, bt type,
gfc_simplify_f sf;
gfc_resolve_f rf;
cf.f3 = check;
sf.f3 = simplify;
cf.f2 = check;
sf.f2 = simplify;
rf.s1 = resolve;
add_sym (name, elemental, actual_ok, type, kind, cf, sf, rf,