Re: [PATCH] implement g77's UMASK for gfortran

[Steve Kargl <sgk at troutmask dot apl dot washington dot edu>]

On Sat, Nov 13, 2004 at 12:16:00PM -0800, Steve Kargl wrote:
> Here's an implementation of g77's UMASK intrinsic function
> and subroutine that is needed by gfortran.  Bootstrapped and
> tested on i386-unknown-freebsd6.0.
> 

Here's an updated patch.  It includes implementations for
g77's UMASK, UNLINK, and EXIT.  It would be nice if someone
could commit this patch as I plan to implement several
more g77 intrinsics, which requires editing the same set
of files.

ChangeLog for libgfortran:

2004-11-16  Steven G. Kargl  <kargls@comcast.net>

        * Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
        * Makefile.in: Regenerated
        * intrinsics/umask.c: New file
        * intrinsics/unlink.c: ditto
        * intrinsics/exit.c: ditto

ChangeLog for fortran:

2004-11-16  Steven G. Kargl  <kargls@comcast.net>

        * check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
          gfc_check_unlink,gfc_check_unlink_sub): New functions
        * check.c (gfc_check_getcwd_sub): Fix seg fault.
        * gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
        * intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
          exit to intrinsics symbol tables.
        * intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
          gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
          gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
          gfc_resolve_unlink_sub): Add and sort prototypes.
        * iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
          gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
        * trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols

-- 
Steve

Attachment: libgfortran.diff
Description: Text document

Attachment: fortran.diff
Description: Text document

Attachment: umask.c
Description: Text document

Attachment: unlink.c
Description: Text document

Attachment: exit.c
Description: Text document