blob: 842f02118449947431a03b9ea38ac806d35520d0 [file] [log] [blame]
/* $Id$
* YASM utility functions.
*
* Includes standard headers and defines prototypes for replacement functions
* if needed.
*
* Copyright (C) 2001 Peter Johnson
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND OTHER CONTRIBUTORS ``AS IS''
* AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
* ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR OTHER CONTRIBUTORS BE
* LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#ifndef YASM_UTIL_H
#define YASM_UTIL_H
#ifdef HAVE_CONFIG_H
#include <config.h>
#endif
#if defined(HAVE_GNU_C_LIBRARY) || defined(__MINGW32__) || defined(__DJGPP__)
/* Work around glibc's non-defining of certain things when using gcc -ansi */
# ifdef __STRICT_ANSI__
# undef __STRICT_ANSI__
# endif
/* Work around glibc's string inlines (in bits/string2.h) if needed */
# ifdef NO_STRING_INLINES
# define __NO_STRING_INLINES
# endif
#endif
#if !defined(lint) && !defined(NDEBUG)
# define NDEBUG
#endif
#include <stdio.h>
#include <stdarg.h>
#include <stddef.h>
#include <stdlib.h>
#include <string.h>
#include <assert.h>
#include <libyasm/coretype.h>
#ifdef lint
# define _(String) String
#else
# ifdef HAVE_LOCALE_H
# include <locale.h>
# endif
# ifdef ENABLE_NLS
# include <libintl.h>
# define _(String) gettext(String)
# else
# define gettext(Msgid) (Msgid)
# define dgettext(Domainname, Msgid) (Msgid)
# define dcgettext(Domainname, Msgid, Category) (Msgid)
# define textdomain(Domainname) while (0) /* nothing */
# define bindtextdomain(Domainname, Dirname) while (0) /* nothing */
# define _(String) (String)
# endif
#endif
#ifdef gettext_noop
# define N_(String) gettext_noop(String)
#else
# define N_(String) (String)
#endif
#ifdef HAVE_MERGESORT
#define yasm__mergesort(a, b, c, d) mergesort(a, b, c, d)
#endif
#ifdef HAVE_STRSEP
#define yasm__strsep(a, b) strsep(a, b)
#endif
#ifdef HAVE_STRCASECMP
# define yasm__strcasecmp(x, y) strcasecmp(x, y)
# define yasm__strncasecmp(x, y, n) strncasecmp(x, y, n)
#elif HAVE_STRICMP
# define yasm__strcasecmp(x, y) stricmp(x, y)
# define yasm__strncasecmp(x, y, n) strnicmp(x, y, n)
#elif HAVE__STRICMP
# define yasm__strcasecmp(x, y) _stricmp(x, y)
# define yasm__strncasecmp(x, y, n) _strnicmp(x, y, n)
#elif HAVE_STRCMPI
# define yasm__strcasecmp(x, y) strcmpi(x, y)
# define yasm__strncasecmp(x, y, n) strncmpi(x, y, n)
#else
# define USE_OUR_OWN_STRCASECMP
#endif
#if !defined(HAVE_TOASCII) || defined(lint)
# define toascii(c) ((c) & 0x7F)
#endif
#include <libyasm/compat-queue.h>
#ifdef HAVE_SYS_CDEFS_H
# include <sys/cdefs.h>
#endif
#ifdef __RCSID
# define RCSID(s) __RCSID(s)
#elif defined(__GNUC__) && defined(__ELF__)
# define RCSID(s) __asm__(".ident\t\"" s "\"")
#else
# define RCSID(s) static const char rcsid[] = s
#endif
#ifdef WITH_DMALLOC
# include <dmalloc.h>
# define yasm__xstrdup(str) xstrdup(str)
# define yasm_xmalloc(size) xmalloc(size)
# define yasm_xcalloc(count, size) xcalloc(count, size)
# define yasm_xrealloc(ptr, size) xrealloc(ptr, size)
# define yasm_xfree(ptr) xfree(ptr)
#endif
/* Bit-counting: used primarily by HAMT but also in a few other places. */
#define BC_TWO(c) (0x1ul << (c))
#define BC_MSK(c) (((unsigned long)(-1)) / (BC_TWO(BC_TWO(c)) + 1ul))
#define BC_COUNT(x,c) ((x) & BC_MSK(c)) + (((x) >> (BC_TWO(c))) & BC_MSK(c))
#define BitCount(d, s) do { \
d = BC_COUNT(s, 0); \
d = BC_COUNT(d, 1); \
d = BC_COUNT(d, 2); \
d = BC_COUNT(d, 3); \
d = BC_COUNT(d, 4); \
} while (0)
/** Determine if a value is exactly a power of 2. Zero is treated as a power
* of two.
* \param x value
* \return Nonzero if x is a power of 2.
*/
#define is_exp2(x) ((x & (x - 1)) == 0)
#ifndef NELEMS
/** Get the number of elements in an array.
* \internal
* \param array array
* \return Number of elements.
*/
#define NELEMS(array) (sizeof(array) / sizeof(array[0]))
#endif
#endif