@zigc/lib 0.16.0-dev.3121 → 0.16.0-dev.3132

package/libc/mingw/math/x86/atanf.c

@@ -1,23 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-/*
- * Written by J.T. Conklin <jtc@netbsd.org>.
- * Public domain.
- *
- */
-
-#include <math.h>
-
-float
-atanf (float x)
-{
-  float res = 0.0F;
-
-  asm volatile (
-       "fld1\n\t"
-       "fpatan" : "=t" (res) : "0" (x));
-  return res;
-}

package/libc/mingw/math/x86/atanl.c

@@ -1,18 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-long double atanl (long double x);
-
-long double
-atanl (long double x)
-{
-  long double res = 0.0L;
-
-  asm volatile (
-       "fld1\n\t"
-       "fpatan"
-       : "=t" (res) : "0" (x));
-  return res;
-}

package/libc/mingw/math/x86/ldexp.c

@@ -1,23 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <math.h>
-#include <errno.h>
-
-double ldexp(double x, int expn)
-{
-  double res = 0.0;
-  if (!isfinite (x) || x == 0.0)
-    return x;
-
-  __asm__ __volatile__ ("fscale"
-  	    : "=t" (res)
-	    : "0" (x), "u" ((double) expn));
-
-  if (!isfinite (res) || res == 0.0L)
-    errno = ERANGE;
-
-  return res;
-}

package/libc/mingw/math/x86/scalbn.S

@@ -1,41 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <_mingw_mac.h>
-
-	.file	"scalbn.S"
-	.text
-#ifdef __x86_64__
-	.align 8
-#else
-	.align 4
-#endif
-.globl __MINGW_USYMBOL(scalbn)
-	.def	__MINGW_USYMBOL(scalbn);	.scl	2;	.type	32;	.endef
-__MINGW_USYMBOL(scalbn):
-#ifdef __x86_64__
-	subq	$24, %rsp
-	movq	%rdx,(%rsp)
-	fildl	(%rsp)
-	movsd	%xmm0,(%rsp)
-	fldl	(%rsp)
-	fscale
-	fstp	%st(1)
-	fstpl	(%rsp)
-	movsd	(%rsp),%xmm0
-	addq	$24, %rsp
-	ret
-
-#else
-	fildl	12(%esp)
-	fldl	4(%esp)
-	fscale
-	fstp	%st(1)
-	ret
-#endif
-
-.globl __MINGW_USYMBOL(scalbln)
-	.set	__MINGW_USYMBOL(scalbln),__MINGW_USYMBOL(scalbn)
-

package/libc/mingw/math/x86/scalbnf.S

@@ -1,40 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#include <_mingw_mac.h>
-
-	.file	"scalbnf.S"
-	.text
-#ifdef __x86_64__
-	.align 8
-#else
-	.align 4
-#endif
-.globl __MINGW_USYMBOL(scalbnf)
-	.def	__MINGW_USYMBOL(scalbnf);	.scl	2;	.type	32;	.endef
-__MINGW_USYMBOL(scalbnf):
-#ifdef __x86_64__
-	subq	$24, %rsp
-	movq	%rdx,(%rsp)
-	fildl	(%rsp)
-	movss	%xmm0,(%rsp)
-	flds	(%rsp)
-	fscale
-	fstp	%st(1)
-	fstps	(%rsp)
-	movss	(%rsp),%xmm0
-	addq	$24, %rsp
-	ret
-#else
-	fildl	8(%esp)
-	flds	4(%esp)
-	fscale
-	fstp	%st(1)
-	ret
-#endif
-
-.globl __MINGW_USYMBOL(scalblnf)
-	.set	__MINGW_USYMBOL(scalblnf),__MINGW_USYMBOL(scalbnf)
-

package/libc/mingw/misc/btowc.c

@@ -1,28 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#ifndef WIN32_LEAN_AND_MEAN
-#define WIN32_LEAN_AND_MEAN
-#endif
-#include "mb_wc_common.h"
-#include <wchar.h>
-#include <stdio.h>
-#include <windows.h>
-
-wint_t btowc (int c)
-{
-  if (c == EOF)
-    return (WEOF);
-  else
-    {
-      unsigned char ch = c;
-      wchar_t wc = WEOF;
-      if (!MultiByteToWideChar (___lc_codepage_func(), MB_ERR_INVALID_CHARS,
-                                (char*)&ch, 1, &wc, 1))
-        return WEOF;
-
-      return wc;
-    }
-}

package/libc/mingw/misc/wcstof.c

@@ -1,66 +0,0 @@
-/*  Wide char wrapper for strtof
- *  Revision history:
- *  25 Aug 2006 Initial version.
- *
- *  Contributor:   Danny Smith <dannysmith@users.sourceforege.net>
- */
-
- /* This routine has been placed in the public domain.*/
-
-#define WIN32_LEAN_AND_MEAN
-#include <windows.h>
-#include <locale.h>
-#include <wchar.h>
-#include <stdlib.h>
-#include <string.h>
-#include <mbstring.h>
-
-#include "mb_wc_common.h"
-
-float wcstof (const wchar_t * __restrict__ wcs, wchar_t ** __restrict__ wcse)
-{
-  char * cs;
-  char * cse;
-  unsigned int i;
-  float ret;
-  const unsigned int cp = ___lc_codepage_func();
-
-  /* Allocate enough room for (possibly) mb chars */
-  cs = (char *) malloc ((wcslen(wcs)+1) * MB_CUR_MAX);
-
-  if (cp == 0) /* C locale */
-    {
-      for (i = 0; (wcs[i] != 0) && wcs[i] <= 255; i++)
-	cs[i] = (char) wcs[i];
-      cs[i]  = '\0';
-    }
-  else
-    {
-      int nbytes = -1;
-      int mb_len = 0;
-      /* loop through till we hit null or invalid character */
-      for (i = 0; (wcs[i] != 0) && (nbytes != 0); i++)
-	{
-	  nbytes = WideCharToMultiByte(cp, WC_COMPOSITECHECK | WC_SEPCHARS,
-				       wcs + i, 1, cs + mb_len, MB_CUR_MAX,
-				       NULL, NULL);
-	  mb_len += nbytes;
-	}
-      cs[mb_len] = '\0';
-    }
-
-  ret =  strtof (cs, &cse);
-
-  if (wcse)
-    {
-      /* Make sure temp mbstring cs has 0 at cse.  */ 
-      *cse = '\0';
-      i = MultiByteToWideChar (cp, MB_ERR_INVALID_CHARS, cs, -1, NULL, 0);
-      if (i > 0)
-        i -= 1; /* Remove zero terminator from length.  */
-      *wcse = (wchar_t *) wcs + i;
-    }
-  free (cs);
-
-  return ret;
-}

package/libc/mingw/misc/wcstoimax.c

@@ -1,132 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-/*
-    This source code was extracted from the Q8 package created and
-    placed in the PUBLIC DOMAIN by Doug Gwyn <gwyn@arl.mil>
-
-    last edit:	1999/11/05	gwyn@arl.mil
-
-	Implements subclause 7.8.2 of ISO/IEC 9899:1999 (E).
-
-	This particular implementation requires the matching <inttypes.h>.
-	It also assumes that character codes for A..Z and a..z are in
-	contiguous ascending order; this is true for ASCII but not EBCDIC.
-*/
-
-#include <wchar.h>
-#include <errno.h>
-#include <ctype.h>
-#include <inttypes.h>
-
-/* convert digit wide character to number, in any base */
-
-#define ToWNumber(c)	(iswdigit(c) ? (c) - L'0' : \
-			 iswupper(c) ? (c) - L'A' + 10 : \
-			 iswlower(c) ? (c) - L'a' + 10 : \
-			 -1		/* "invalid" flag */ \
-			)
-
-/* validate converted digit character for specific base */
-#define valid(n, b)	((n) >= 0 && (n) < (b))
-
-intmax_t
-__cdecl
-wcstoimax(const wchar_t * __restrict__ nptr, wchar_t ** __restrict__ endptr, int base)
-	{
-	register uintmax_t	accum;	/* accumulates converted value */
-	register int		n;	/* numeral from digit character */
-	int			minus;	/* set iff minus sign seen */
-	int			toobig;	/* set iff value overflows */
-
-	if ( endptr != NULL )
-		*endptr = (wchar_t *)nptr;	/* in case no conv performed */
-
-	if ( base < 0 || base == 1 || base > 36 )
-		{
-		errno = EDOM;
-		return 0;		/* unspecified behavior */
-		}
-
-	/* skip initial, possibly empty sequence of white-space w.characters */
-
-	while ( iswspace(*nptr) )
-		++nptr;
-
-	/* process subject sequence: */
-
-	/* optional sign */
-
-	if ( (minus = *nptr == L'-') || *nptr == L'+' )
-		++nptr;
-
-	if ( base == 0 )
-        {
-		if ( *nptr == L'0' )
-            {
-			if ( nptr[1] == L'X' || nptr[1] == L'x' )
-				base = 16;
-			else
-				base = 8;
-            }
-		else
-				base = 10;
-        }
-	/* optional "0x" or "0X" for base 16 */
-
-	if ( base == 16 && *nptr == L'0'
-	  && (nptr[1] == L'X' || nptr[1] == L'x')
-	   )
-		nptr += 2;		/* skip past this prefix */
-
-	/* check whether there is at least one valid digit */
-
-	n = ToWNumber(*nptr);
-	++nptr;
-
-	if ( !valid(n, base) )
-		return 0;		/* subject seq. not of expected form */
-
-	accum = n;
-
-	for ( toobig = 0; n = ToWNumber(*nptr), valid(n, base); ++nptr )
-		if ( accum > (uintmax_t)(INTMAX_MAX / base + 2) ) /* major wrap-around */
-			toobig = 1;	/* but keep scanning */
-		else
-			accum = base * accum + n;
-
-	if ( endptr != NULL )
-		*endptr = (wchar_t *)nptr;	/* -> first not-valid-digit */
-
-	if ( minus )
-		{
-		if ( accum > (uintmax_t)INTMAX_MAX + 1 )
-			toobig = 1;
-		}
-	else
-	if ( accum > (uintmax_t)INTMAX_MAX )
-		toobig = 1;
-
-	if ( toobig )
-		{
-		errno = ERANGE;
-		return minus ? INTMAX_MIN : INTMAX_MAX;
-		}
-	else
-		return (intmax_t)(minus ? -accum : accum);
-	}
-intmax_t (__cdecl *__MINGW_IMP_SYMBOL(wcstoimax))(const wchar_t * __restrict__, wchar_t ** __restrict__, int) = wcstoimax;
-
-long long __attribute__ ((alias ("wcstoimax")))
-__cdecl
-wcstoll (const wchar_t* __restrict__ nptr, wchar_t ** __restrict__ endptr, int base);
-extern long long __attribute__ ((alias (__MINGW64_STRINGIFY(__MINGW_IMP_SYMBOL(wcstoimax)))))
-(__cdecl *__MINGW_IMP_SYMBOL(wcstoll))(const wchar_t * __restrict__, wchar_t ** __restrict__, int);
-
-long long __attribute__ ((alias ("wcstoimax")))
-__cdecl
-_wcstoi64 (const wchar_t* __restrict__ nptr, wchar_t ** __restrict__ endptr, int base);
-extern long long __attribute__ ((alias (__MINGW64_STRINGIFY(__MINGW_IMP_SYMBOL(wcstoimax)))))
-(__cdecl *__MINGW_IMP_SYMBOL(_wcstoi64))(const wchar_t * __restrict__, wchar_t ** __restrict__, int);

package/libc/mingw/misc/wcstoumax.c

@@ -1,126 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-/*
-    This source code was extracted from the Q8 package created and
-    placed in the PUBLIC DOMAIN by Doug Gwyn <gwyn@arl.mil>
-
-    last edit:	1999/11/05	gwyn@arl.mil
-
-	Implements subclause 7.8.2 of ISO/IEC 9899:1999 (E).
-
-	This particular implementation requires the matching <inttypes.h>.
-	It also assumes that character codes for A..Z and a..z are in
-	contiguous ascending order; this is true for ASCII but not EBCDIC.
-*/
-
-#include <wchar.h>
-#include <errno.h>
-#include <ctype.h>
-#include <inttypes.h>
-
-/* convert digit wide character to number, in any base */
-
-#define ToWNumber(c)	(iswdigit(c) ? (c) - L'0' : \
-			 iswupper(c) ? (c) - L'A' + 10 : \
-			 iswlower(c) ? (c) - L'a' + 10 : \
-			 -1		/* "invalid" flag */ \
-			)
-
-/* validate converted digit character for specific base */
-#define valid(n, b)	((n) >= 0 && (n) < (b))
-
-uintmax_t
-__cdecl
-wcstoumax(const wchar_t * __restrict__ nptr, wchar_t ** __restrict__ endptr, int base)
-	{
-	register uintmax_t	accum;	/* accumulates converted value */
-	register uintmax_t	next;	/* for computing next value of accum */
-	register int		n;	/* numeral from digit character */
-	int			minus;	/* set iff minus sign seen (yes!) */
-	int			toobig;	/* set iff value overflows */
-
-	if ( endptr != NULL )
-		*endptr = (wchar_t *)nptr;	/* in case no conv performed */
-
-	if ( base < 0 || base == 1 || base > 36 )
-		{
-		errno = EDOM;
-		return 0;		/* unspecified behavior */
-		}
-
-	/* skip initial, possibly empty sequence of white-space w.characters */
-
-	while ( iswspace(*nptr) )
-		++nptr;
-
-	/* process subject sequence: */
-
-	/* optional sign */
-
-	if ( (minus = *nptr == L'-') || *nptr == L'+' )
-		++nptr;
-
-	if ( base == 0 )
-        {
-		if ( *nptr == L'0' )
-            {
-			if ( nptr[1] == L'X' || nptr[1] == L'x' )
-				base = 16;
-			else
-				base = 8;
-            }
-		else
-				base = 10;
-        }
-	/* optional "0x" or "0X" for base 16 */
-
-	if ( base == 16 && *nptr == L'0'
-	  && (nptr[1] == L'X' || nptr[1] == L'x')
-	   )
-		nptr += 2;		/* skip past this prefix */
-
-	/* check whether there is at least one valid digit */
-
-	n = ToWNumber(*nptr);
-	++nptr;
-
-	if ( !valid(n, base) )
-		return 0;		/* subject seq. not of expected form */
-
-	accum = n;
-
-	for ( toobig = 0; n = ToWNumber(*nptr), valid(n, base); ++nptr )
-		if ( accum > UINTMAX_MAX / base + 1	/* major wrap-around */
-		  || (next = base * accum + n) < accum	/* minor wrap-around */
-		   )
-			toobig = 1;	/* but keep scanning */
-		else
-			accum = next;
-
-	if ( endptr != NULL )
-		*endptr = (wchar_t *)nptr;	/* -> first not-valid-digit */
-
-	if ( toobig )
-		{
-		errno = ERANGE;
-		return UINTMAX_MAX;
-		}
-	else
-		return minus ? -accum : accum;	/* (yes!) */
-	}
-uintmax_t (__cdecl *__MINGW_IMP_SYMBOL(wcstoumax))(const wchar_t * __restrict__, wchar_t ** __restrict__, int) = wcstoumax;
-
-unsigned long long __attribute__ ((alias ("wcstoumax")))
-__cdecl
-wcstoull (const wchar_t* __restrict__ nptr, wchar_t ** __restrict__ endptr, int base);
-extern unsigned long long __attribute__ ((alias (__MINGW64_STRINGIFY(__MINGW_IMP_SYMBOL(wcstoumax)))))
-(__cdecl *__MINGW_IMP_SYMBOL(wcstoull))(const wchar_t * __restrict__, wchar_t ** __restrict__, int);
-
-unsigned long long __attribute__ ((alias ("wcstoumax")))
-__cdecl
-_wcstoui64 (const wchar_t* __restrict__ nptr, wchar_t ** __restrict__ endptr, int base);
-extern unsigned long long __attribute__ ((alias (__MINGW64_STRINGIFY(__MINGW_IMP_SYMBOL(wcstoumax)))))
-(__cdecl *__MINGW_IMP_SYMBOL(_wcstoui64))(const wchar_t * __restrict__, wchar_t ** __restrict__, int);

package/libc/mingw/misc/wctob.c

@@ -1,29 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#ifndef WIN32_LEAN_AND_MEAN
-#define WIN32_LEAN_AND_MEAN
-#endif
-#include "mb_wc_common.h"
-#include <wchar.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <errno.h>
-#include <windows.h>
-
-/* Return just the first byte after translating to multibyte.  */
-int wctob (wint_t wc )
-{
-    wchar_t w = wc;
-    char c;
-    int invalid_char = 0;
-    if (!WideCharToMultiByte (___lc_codepage_func(),
-			      0 /* Is this correct flag? */,
-			      &w, 1, &c, 1, NULL, &invalid_char)
-	 || invalid_char)
-      return EOF;
-
-    return (unsigned char) c;
-}

package/libc/mingw/misc/winbs_uint64.c

@@ -1,6 +0,0 @@
-unsigned long long __cdecl _byteswap_uint64(unsigned long long _Int64);
-
-unsigned long long __cdecl _byteswap_uint64(unsigned long long _Int64)
-{
-  return __builtin_bswap64(_Int64);
-}

package/libc/mingw/misc/winbs_ulong.c

@@ -1,6 +0,0 @@
-unsigned long __cdecl _byteswap_ulong (unsigned long _Long);
-
-unsigned long __cdecl _byteswap_ulong (unsigned long _Long)
-{
-  return __builtin_bswap32(_Long);
-}

package/libc/mingw/misc/winbs_ushort.c

@@ -1,6 +0,0 @@
-unsigned short __cdecl _byteswap_ushort(unsigned short _Short);
-
-unsigned short __cdecl _byteswap_ushort(unsigned short _Short)
-{
-  return __builtin_bswap16(_Short);
-}

package/libc/mingw/stdio/_Exit.c

@@ -1,10 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-#define __CRT__NO_INLINE
-#include <stdlib.h>
-
-void _Exit(int status)
-	{  _exit(status); }

package/libc/mingw/stdio/_findfirst64i32.c

@@ -1,21 +0,0 @@
-#define __CRT__NO_INLINE
-#include <io.h>
-#include <string.h>
-
-intptr_t __cdecl _findfirst64i32(const char *_Filename,struct _finddata64i32_t *_FindData)
-{
-  struct __finddata64_t fd;
-  intptr_t ret = _findfirst64(_Filename,&fd);
-  if (ret == -1) {
-    *_FindData = (struct _finddata64i32_t){0};
-    return -1;
-  }
-  _FindData->attrib=fd.attrib;
-  _FindData->time_create=fd.time_create;
-  _FindData->time_access=fd.time_access;
-  _FindData->time_write=fd.time_write;
-  _FindData->size=(_fsize_t) fd.size;
-  strncpy(_FindData->name,fd.name,260);
-  return ret;
-}
-

package/libc/mingw/stdio/_findnext64i32.c

@@ -1,21 +0,0 @@
-#define __CRT__NO_INLINE
-#include <io.h>
-#include <string.h>
-
-int __cdecl _findnext64i32(intptr_t _FindHandle,struct _finddata64i32_t *_FindData)
-{
-  struct __finddata64_t fd;
-  int ret = _findnext64(_FindHandle,&fd);
-  if (ret == -1) {
-    *_FindData = (struct _finddata64i32_t){0};
-    return -1;
-  }
-  _FindData->attrib=fd.attrib;
-  _FindData->time_create=fd.time_create;
-  _FindData->time_access=fd.time_access;
-  _FindData->time_write=fd.time_write;
-  _FindData->size=(_fsize_t) fd.size;
-  strncpy(_FindData->name,fd.name,260);
-  return ret;
-}
-

package/libc/mingw/stdio/_fstat64i32.c

@@ -1,37 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-
-#include <sys/stat.h>
-
-/* When the file size does not fit into the st_size field:
- *           crtdll-msvcr90   msvcr100   msvcr110+
- * st_size      truncate         0           0
- * errno       no change     no change   EOVERFLOW
- * returns         0            -1          -1
- *
- * This file is used only for pre-msvcr80 builds,
- * So use the pre-msvcr80 behavior - truncate without error.
- */
-int __cdecl _fstat64i32(int _FileDes,struct _stat64i32 *_Stat)
-{
-  struct _stat64 st;
-  int ret=_fstat64(_FileDes,&st);
-  if (ret != 0)
-    return ret;
-  _Stat->st_dev=st.st_dev;
-  _Stat->st_ino=st.st_ino;
-  _Stat->st_mode=st.st_mode;
-  _Stat->st_nlink=st.st_nlink;
-  _Stat->st_uid=st.st_uid;
-  _Stat->st_gid=st.st_gid;
-  _Stat->st_rdev=st.st_rdev;
-  _Stat->st_size=(_off_t) st.st_size; /* truncate 64-bit st_size to 32-bit */
-  _Stat->st_atime=st.st_atime;
-  _Stat->st_mtime=st.st_mtime;
-  _Stat->st_ctime=st.st_ctime;
-  return 0;
-}
-int (__cdecl *__MINGW_IMP_SYMBOL(_fstat64i32))(int, struct _stat64i32 *) = _fstat64i32;

package/libc/mingw/stdio/_stat64i32.c

@@ -1,37 +0,0 @@
-/**
- * This file has no copyright assigned and is placed in the Public Domain.
- * This file is part of the mingw-w64 runtime package.
- * No warranty is given; refer to the file DISCLAIMER.PD within this package.
- */
-
-#include <sys/stat.h>
-
-/* When the file size does not fit into the st_size field:
- *           crtdll-msvcr90   msvcr100   msvcr110+
- * st_size      truncate         0           0
- * errno       no change     no change   EOVERFLOW
- * returns         0            -1          -1
- *
- * This file is used only for pre-msvcr80 builds,
- * So use the pre-msvcr80 behavior - truncate without error.
- */
-int __cdecl _stat64i32(const char *_Name,struct _stat64i32 *_Stat)
-{
-  struct _stat64 st;
-  int ret=_stat64(_Name,&st);
-  if (ret != 0)
-    return ret;
-  _Stat->st_dev=st.st_dev;
-  _Stat->st_ino=st.st_ino;
-  _Stat->st_mode=st.st_mode;
-  _Stat->st_nlink=st.st_nlink;
-  _Stat->st_uid=st.st_uid;
-  _Stat->st_gid=st.st_gid;
-  _Stat->st_rdev=st.st_rdev;
-  _Stat->st_size=(_off_t) st.st_size; /* truncate 64-bit st_size to 32-bit */
-  _Stat->st_atime=st.st_atime;
-  _Stat->st_mtime=st.st_mtime;
-  _Stat->st_ctime=st.st_ctime;
-  return 0;
-}
-int (__cdecl *__MINGW_IMP_SYMBOL(_stat64i32))(const char *, struct _stat64i32 *) = _stat64i32;