diff options
| author | Steven G. Kargl <kargls@comcast.net> | 2004-08-28 23:43:41 +0000 |
|---|---|---|
| committer | Paul Brook <pbrook@gcc.gnu.org> | 2004-08-28 23:43:41 +0000 |
| commit | 4c0c6b9f2c9aa728cae2d2af6f48344008fbe1cd (patch) | |
| tree | 508b51de46c1dce0eefec004809cf1886455dcad /gcc/fortran/iresolve.c | |
| parent | e5a002e3537c91307b395d94b9292ce735d5d1c1 (diff) | |
| download | gcc-4c0c6b9f2c9aa728cae2d2af6f48344008fbe1cd.zip gcc-4c0c6b9f2c9aa728cae2d2af6f48344008fbe1cd.tar.gz gcc-4c0c6b9f2c9aa728cae2d2af6f48344008fbe1cd.tar.bz2 | |
gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_GET?ID.
2004-08-29 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
* gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_GET?ID.
(gfc_check_f, gfc_simplify_f): Add f0.
* intrinsic.c (do_check): Call f0. Flatten.
(add_sym_0): Fix prototype. Set f0.
(add_functions): Add getgid, getgid and getuid.
(resolve_intrinsic): Remove obsolete comment.
(do_simplify): Call f0.
* intrinsic.h (gfc_resolve_getgid, gfc_resolve_getpid,
gfc_resolve_getuid): Add prototypes.
* iresolve.c (gfc_resolve_getgid, gfc_resolve_getpid,
gfc_resolve_getuid): New functions.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Handle
GFC_ISYM_GET?ID.
libgfortran/
* Makefile.am: Add intrinsics/getXid.c.
* configure.ac: Add tests for get{g,p,u}id.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
* configure: Regenerate.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r86703
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 26 |
1 files changed, 26 insertions, 0 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index 24734ac..eef424f 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -545,6 +545,32 @@ gfc_resolve_fraction (gfc_expr * f, gfc_expr * x) void +gfc_resolve_getgid (gfc_expr * f) +{ + f->ts.type = BT_INTEGER; + f->ts.kind = 4; + f->value.function.name = gfc_get_string (PREFIX("getgid")); +} + + +void +gfc_resolve_getpid (gfc_expr * f) +{ + f->ts.type = BT_INTEGER; + f->ts.kind = 4; + f->value.function.name = gfc_get_string (PREFIX("getpid")); +} + + +void +gfc_resolve_getuid (gfc_expr * f) +{ + f->ts.type = BT_INTEGER; + f->ts.kind = 4; + f->value.function.name = gfc_get_string (PREFIX("getuid")); +} + +void gfc_resolve_iand (gfc_expr * f, gfc_expr * i, gfc_expr * j ATTRIBUTE_UNUSED) { |