Re: [libgfortran,patch] MinGW wrapper for getlogin, gethostname and getpid functions

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

On Sun, Sep 25, 2005 at 06:23:16PM +0200, FX Coudert wrote:
> >>+/* Windows32 version */
> >>+#if defined __MINGW32__ && !defined  HAVE_GETLOGIN
> >>+#define WIN32_MEAN_AND_LEAN
> >>+#include <windows.h>
> >>+#include <lmcons.h>  /* for UNLEN */ 
> >>+
> >>+static char *
> >>+w32_getlogin (void)
> >
> >This is wrong.  For all other OS's, we have
> >
> >  void PREFIX(getlog) (char *, gfc_charlen_type);
> >  export_proto_np(PREFIX(getlog));
> >
> >  void
> >  PREFIX(getlog) (char * login, gfc_charlen_type login_len)
> >  {
> 
> I think you're getting it wrong. This is only a wrapper function to 
> provide a functionnal getlog(), which is then used as usual in 
> PREFIX(getlog). The entire relevant section of that file looks like:
> 

Whoops.  It's  8 a.m. and I've only had 1 cup of coffee. :-)
Sorry for the noise.

-- 
Steve