This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/library/dialect/swi/os/pl-dtoa.c
2015-06-18 01:47:23 +01:00

72 lines
1.9 KiB
C

/* $Id$
Part of SWI-Prolog
Author: Jan Wielemaker
E-mail: J.Wielemaker@uva.nl
WWW: http://www.swi-prolog.org
Copyright (C): 1985-2010, University of Amsterdam
This library is free software; you can redistribute it and/or
modify it under the terms of the GNU Lesser General Public
License as published by the Free Software Foundation; either
version 2.1 of the License, or (at your option) any later version.
This library is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public
License along with this library; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include "pl-incl.h"
#include "pl-dtoa.h"
#ifdef WORDS_BIGENDIAN
#define IEEE_MC68k 1
#else
#define IEEE_8087 1
#endif
#define MALLOC PL_malloc
#define FREE PL_free
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Long must be a 32-bit int. For now we use int. Ideally we would use
int32_t, but MS does not yet support stdint.h.
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
#define Long int /* 32-bits */
#ifdef _REENTRANT
#define MULTIPLE_THREADS
/* TBD: Use the pl-thread.[ch] locks for better speed on Windows
*/
static pthread_mutex_t mutex_0 = PTHREAD_MUTEX_INITIALIZER;
static pthread_mutex_t mutex_1 = PTHREAD_MUTEX_INITIALIZER;
static inline void
ACQUIRE_DTOA_LOCK(int n)
{ if ( n == 0 )
pthread_mutex_lock(&mutex_0);
else
pthread_mutex_lock(&mutex_1);
}
static inline void
FREE_DTOA_LOCK(int n)
{ if ( n == 0 )
pthread_mutex_unlock(&mutex_0);
else
pthread_mutex_unlock(&mutex_1);
}
#endif /*MULTIPLE_THREADS*/
#include "dtoa.c"