X-Recipient: archive-cygwin AT delorie DOT com
X-Spam-Check-By: sourceware.org
Date: Fri, 30 Nov 2007 07:01:19 -0800
From: Jerry DeLisle <jvdelisle AT verizon DOT net>
Subject: Re: Failure in building GFortran on Cygwin
In-reply-to: <20071130142008.GX30894@calimero.vinschen.de>
To: cygwin AT cygwin DOT com, fortran AT gcc DOT gnu DOT org, corinna-cygwin AT cygwin DOT com
Message-id: <475025BF.7020008@verizon.net>
MIME-version: 1.0
Content-type: text/plain; charset=ISO-8859-1; format=flowed
Content-transfer-encoding: 7bit
References: <Pine DOT CYG DOT 4 DOT 58 DOT 0711292328360 DOT 1532 AT homepc>  <474F61CD DOT 1060405 AT verizon DOT net> <20071130142008 DOT GX30894 AT calimero DOT vinschen DOT de>
User-Agent: Thunderbird 2.0.0.9 (X11/20071115)
Mailing-List: contact cygwin-help AT cygwin DOT com; run by ezmlm
Precedence: bulk
List-Id: <cygwin.cygwin.com>
List-Unsubscribe: <mailto:cygwin-unsubscribe-archive-cygwin=delorie DOT com AT cygwin DOT com>
List-Subscribe: <mailto:cygwin-subscribe AT cygwin DOT com>
List-Archive: <http://sourceware.org/ml/cygwin/>
List-Post: <mailto:cygwin AT cygwin DOT com>
List-Help: <mailto:cygwin-help AT cygwin DOT com>, <http://sourceware.org/ml/#faqs>
Sender: cygwin-owner AT cygwin DOT com
Mail-Followup-To: cygwin AT cygwin DOT com
Delivered-To: mailing list cygwin AT cygwin DOT com

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/