shithub: femtolisp

ref: 860071f62ae03ff157eb2ba2dcbd45f21cb5ec36
dir: /llt/dtypes.h/

View raw version
#ifndef __DTYPES_H_
#define __DTYPES_H_

/*
  This file defines sane integer types for our target platforms. This
  library only runs on machines with the following characteristics:

  - supports integer word sizes of 8, 16, 32, and 64 bits
  - uses unsigned and signed 2's complement representations
  - all pointer types are the same size
  - there is an integer type with the same size as a pointer

  Some features require:
  - IEEE 754 single- and double-precision floating point

  We assume the LP64 convention for 64-bit platforms.
*/


#if defined(__gnu_linux__)
#  define LINUX
#elif defined(__APPLE__) && defined(__MACH__)
#  define MACOSX
#elif defined(__OpenBSD__)
#  define OPENBSD
#elif defined(__FreeBSD__)
#  define FREEBSD
#elif defined(__NetBSD__)
#  define NETBSD
#elif defined(_WIN32)
#  define WIN32
#elif !defined(__plan9__)
#  error "unknown platform"
#endif

#if defined(OPENBSD) || defined(FREEBSD) || defined(NETBSD) || defined(__plan9__)
#if defined(__x86_64__) || defined(__amd64__)
#  define __SIZEOF_POINTER__ 8
#else
#  define __SIZEOF_POINTER__ 4
#endif
#endif

#if !defined (BITS32) && !defined (BITS64)
#ifndef __SIZEOF_POINTER__
#  error "__SIZEOF_POINTER__ undefined"
#endif
#if( 8 == __SIZEOF_POINTER__ )
#  define BITS64
#elif( 4 == __SIZEOF_POINTER__ )
#  define BITS32
#else
#  error "this is one weird machine"
#endif
#endif


#if defined(WIN32)
#  define STDCALL __stdcall
#  if defined(IMPORT_EXPORTS)
#    define DLLEXPORT __declspec(dllimport)
#  else
#    define DLLEXPORT __declspec(dllexport)
#  endif
#elif defined(__plan9__)
#define STDCALL
#define DLLEXPORT
#else
#  define STDCALL
#  define DLLEXPORT __attribute__ ((visibility("default")))
#endif

#if defined(LINUX)
#  include <features.h>
#  include <endian.h>
#  define LITTLE_ENDIAN  __LITTLE_ENDIAN
#  define BIG_ENDIAN     __BIG_ENDIAN
#  define PDP_ENDIAN     __PDP_ENDIAN
#  define BYTE_ORDER     __BYTE_ORDER
#elif defined(MACOSX) || defined(OPENBSD) || defined(FREEBSD) || defined(NETBSD)
#  include <machine/endian.h>
#  define __LITTLE_ENDIAN  LITTLE_ENDIAN
#  define __BIG_ENDIAN     BIG_ENDIAN
#  define __PDP_ENDIAN     PDP_ENDIAN
#  define __BYTE_ORDER     BYTE_ORDER
#elif defined(WIN32) || defined(__plan9__)
#  define __LITTLE_ENDIAN	1234
#  define __BIG_ENDIAN	4321
#  define __PDP_ENDIAN	3412
#  define __BYTE_ORDER       __LITTLE_ENDIAN
#  define __FLOAT_WORD_ORDER __LITTLE_ENDIAN
#  define LITTLE_ENDIAN  __LITTLE_ENDIAN
#  define BIG_ENDIAN     __BIG_ENDIAN
#  define PDP_ENDIAN     __PDP_ENDIAN
#  define BYTE_ORDER     __BYTE_ORDER
#else
#  error "unknown platform"
#endif


#ifdef BOEHM_GC
// boehm GC allocator
#include <gc.h>
#define LLT_ALLOC(n) GC_MALLOC(n)
#define LLT_REALLOC(p,n) GC_REALLOC((p),(n))
#define LLT_FREE(x) ((void)(x))
#else
// standard allocator
#define LLT_ALLOC(n) malloc(n)
#define LLT_REALLOC(p,n) realloc((p),(n))
#define LLT_FREE(x) free(x)
#endif

typedef int bool_t;

#if defined(__plan9__)
#ifdef BITS64
typedef uvlong size_t;
typedef vlong ssize_t;
#else
typedef ulong size_t;
typedef long ssize_t;
#endif
#define STATIC_INLINE static
#define INLINE
#ifndef NULL
#define NULL nil
#endif
#elif defined(__INTEL_COMPILER) && defined(WIN32)
# define STATIC_INLINE static
# define INLINE
# ifdef BITS64
typedef unsigned long size_t;
# else
typedef unsigned int size_t;
# endif
#else
# define STATIC_INLINE static inline
# define INLINE inline
#endif

typedef unsigned char  byte_t;   /* 1 byte */
#if defined(__plan9__)
typedef s8int int8_t;
typedef s16int int16_t;
typedef s32int int32_t;
typedef s64int int64_t;
typedef u64int uint64_t;
typedef u8int u_int8_t;
typedef u16int u_int16_t;
typedef u32int u_int32_t;
typedef u64int u_int64_t;
typedef vlong off_t;
#elif defined(WIN32)
typedef short int16_t;
typedef int int32_t;
typedef long long int64_t;
typedef unsigned char u_int8_t;
typedef unsigned short u_int16_t;
typedef unsigned int u_int32_t;
typedef unsigned long long u_int64_t;
#ifdef __INTEL_COMPILER
typedef signed char int8_t;
typedef short int16_t;
typedef int int32_t;
#endif
#else
#include <sys/types.h>
#endif

#ifdef BITS64
#define TOP_BIT 0x8000000000000000
#define NBITS 64
typedef uint64_t uint_t;  // preferred int type on platform
typedef int64_t int_t;
typedef int64_t offset_t;
typedef u_int64_t index_t;
typedef int64_t ptrint_t; // pointer-size int
typedef u_int64_t u_ptrint_t;
#else
#define TOP_BIT 0x80000000
#define NBITS 32
typedef unsigned long uint_t;
typedef long int_t;
typedef int32_t offset_t;
typedef u_int32_t index_t;
typedef int32_t ptrint_t;
typedef u_int32_t u_ptrint_t;
#endif

typedef u_int8_t  uint8_t;
typedef u_int16_t uint16_t;
typedef u_int32_t uint32_t;
typedef u_int64_t uint64_t;
typedef u_ptrint_t uptrint_t;

#define LLT_ALIGN(x, sz) (((x) + (sz-1)) & (-sz))

// branch prediction annotations
#ifdef __GNUC__
#define __unlikely(x) __builtin_expect(!!(x), 0)
#define __likely(x)   __builtin_expect(!!(x), 1)
#else
#define __unlikely(x) (x)
#define __likely(x)   (x)
#endif

#define DBL_MAXINT 9007199254740992LL
#define FLT_MAXINT 16777216
#define U64_MAX    18446744073709551615ULL
#define S64_MAX    9223372036854775807LL
#define S64_MIN    (-S64_MAX - 1LL)
#define BIT63      0x8000000000000000LL
#define U32_MAX    4294967295L
#define S32_MAX    2147483647L
#define S32_MIN    (-S32_MAX - 1L)
#define BIT31      0x80000000

#define DBL_EPSILON      2.2204460492503131e-16
#define FLT_EPSILON      1.192092896e-7
#if !defined(NETBSD)
#define DBL_MAX          1.7976931348623157e+308
#define DBL_MIN          2.2250738585072014e-308
#define FLT_MAX          3.402823466e+38
#define FLT_MIN          1.175494351e-38
#endif
#define LOG2_10          3.3219280948873626
#define rel_zero(a, b) (fabs((a)/(b)) < DBL_EPSILON)
#define sign_bit(r) ((*(int64_t*)&(r)) & BIT63)
#define LABS(n) (((n)^((n)>>(NBITS-1))) - ((n)>>(NBITS-1)))
#define NBABS(n,nb) (((n)^((n)>>((nb)-1))) - ((n)>>((nb)-1)))
#define DFINITE(d) (((*(int64_t*)&(d))&0x7ff0000000000000LL)!=0x7ff0000000000000LL)
#define DNAN(d) ((d)!=(d))

extern double D_PNAN;
extern double D_NNAN;
extern double D_PINF;
extern double D_NINF;
extern float  F_PNAN;
extern float  F_NNAN;
extern float  F_PINF;
extern float  F_NINF;

#endif