Re: Failure in building GFortran on Cygwin

[Jerry DeLisle <jvdelisle at verizon dot net>]

Corinna Vinschen wrote:
> [Forgot to CC the fortran list.  Re-sending...]
>
> On Nov 29 17:05, Jerry DeLisle wrote:
> > Angelo Graziosi wrote:
> > > /tmp/gcc/libgfortran/intrinsics/system_clock.c: In function
> > > 'system_clock_4':
> > > /tmp/gcc/libgfortran/intrinsics/system_clock.c:67: error: storage size of
> > > 'tzp' isn't known
> > > /tmp/gcc/libgfortran/intrinsics/system_clock.c:67: warning: unused
> > > variable 'tzp'
> > > /tmp/gcc/libgfortran/intrinsics/system_clock.c: In function
> > > 'system_clock_8':
> > > /tmp/gcc/libgfortran/intrinsics/system_clock.c:130: error: storage size of
> > > 'tzp' isn't known
> > > /tmp/gcc/libgfortran/intrinsics/system_clock.c:130: warning: unused
> > > variable 'tzp'
> > > [...]
> > > The Cygwin version is 1.5.25-2 (exp.).
> > I can confirm this.  I saw it last wekend trying to do my regular cygwin 
> > build of gfortran for the wiki.  The build died and I assumed I did 
> > something wrong and was going to try back later.
> >
> > Well this is definitely a regression somewhere.  Its not on the gfortran 
> > side which has not touched that file for several months.  It could be 
> > something broke in the configure for cygwin.  The error occurs in a 
> > conditional comapile:
> >
> > #if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
> >
> > I will open a PR to track this.
>
> A simple testcase would have been much more helpful.

Here is code with the problem:  Not super simple, but I think you can follow it.

Thanks for hellp

void
system_clock_4(GFC_INTEGER_4 *count, GFC_INTEGER_4 *count_rate,
	       GFC_INTEGER_4 *count_max)
{
  GFC_INTEGER_4 cnt;
  GFC_INTEGER_4 rate;
  GFC_INTEGER_4 mx;

#if defined(HAVE_SYS_TIME_H) && defined(HAVE_GETTIMEOFDAY)
  struct timeval tp1;
  struct timezone tzp;

  if (sizeof (tp1.tv_sec) < sizeof (GFC_INTEGER_4))
    internal_error (NULL, "tv_sec too small");

  if (gettimeofday(&tp1, &tzp) == 0)
    {
      GFC_UINTEGER_4 ucnt = (GFC_UINTEGER_4) tp1.tv_sec * TCK;
      ucnt += (tp1.tv_usec + 500000 / TCK) / (1000000 / TCK);
      if (ucnt > GFC_INTEGER_4_HUGE)
	cnt = ucnt - GFC_INTEGER_4_HUGE - 1;
      else
	cnt = ucnt;
      rate = TCK;
      mx = GFC_INTEGER_4_HUGE;
    }
  else
    {
      if (count != NULL)
	*count = - GFC_INTEGER_4_HUGE;
      if (count_rate != NULL)
	*count_rate = 0;
      if (count_max != NULL)
	*count_max = 0;
      return;
    }
#elif defined(HAVE_TIME_H)
  GFC_UINTEGER_4 ucnt;

  if (sizeof (time_t) < sizeof (GFC_INTEGER_4))
    internal_error (NULL, "time_t too small");

  ucnt = time (NULL);
  if (ucnt > GFC_INTEGER_4_HUGE)
    cnt = ucnt - GFC_INTEGER_4_HUGE - 1;
  else
    cnt = ucnt;
  mx = GFC_INTEGER_4_HUGE;
#else
  cnt = - GFC_INTEGER_4_HUGE;
  mx = 0;
#endif
  if (count != NULL)
    *count = cnt;
  if (count_rate != NULL)
    *count_rate = TCK;
  if (count_max != NULL)
    *count_max = mx;
}





--
Unsubscribe info:      http://cygwin.com/ml/#unsubscribe-simple
Problem reports:       http://cygwin.com/problems.html
Documentation:         http://cygwin.com/docs.html
FAQ:                   http://cygwin.com/faq/