mirror of https://github.com/midoks/mdserver-web
parent
d7d907945a
commit
f3f1aaa041
@ -0,0 +1,702 @@ |
|||||||
|
/*
|
||||||
|
* Stack-less Just-In-Time compiler |
||||||
|
* |
||||||
|
* Copyright 2009-2012 Zoltan Herczeg (hzmester@freemail.hu). All rights reserved. |
||||||
|
* |
||||||
|
* 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 COPYRIGHT HOLDER(S) AND 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 COPYRIGHT HOLDER(S) OR 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 _SLJIT_CONFIG_INTERNAL_H_ |
||||||
|
#define _SLJIT_CONFIG_INTERNAL_H_ |
||||||
|
|
||||||
|
/*
|
||||||
|
SLJIT defines the following architecture dependent types and macros: |
||||||
|
|
||||||
|
Types: |
||||||
|
sljit_sb, sljit_ub : signed and unsigned 8 bit byte |
||||||
|
sljit_sh, sljit_uh : signed and unsigned 16 bit half-word (short) type |
||||||
|
sljit_si, sljit_ui : signed and unsigned 32 bit integer type |
||||||
|
sljit_sw, sljit_uw : signed and unsigned machine word, enough to store a pointer |
||||||
|
sljit_p : unsgined pointer value (usually the same as sljit_uw, but |
||||||
|
some 64 bit ABIs may use 32 bit pointers) |
||||||
|
sljit_s : single precision floating point value |
||||||
|
sljit_d : double precision floating point value |
||||||
|
|
||||||
|
Macros for feature detection (boolean): |
||||||
|
SLJIT_32BIT_ARCHITECTURE : 32 bit architecture |
||||||
|
SLJIT_64BIT_ARCHITECTURE : 64 bit architecture |
||||||
|
SLJIT_LITTLE_ENDIAN : little endian architecture |
||||||
|
SLJIT_BIG_ENDIAN : big endian architecture |
||||||
|
SLJIT_UNALIGNED : allows unaligned memory accesses for non-fpu operations (only!) |
||||||
|
SLJIT_INDIRECT_CALL : see SLJIT_FUNC_OFFSET() for more information |
||||||
|
|
||||||
|
Constants: |
||||||
|
SLJIT_NUMBER_OF_REGISTERS : number of available registers |
||||||
|
SLJIT_NUMBER_OF_SCRATCH_REGISTERS : number of available scratch registers |
||||||
|
SLJIT_NUMBER_OF_SAVED_REGISTERS : number of available saved registers |
||||||
|
SLJIT_NUMBER_OF_FLOAT_REGISTERS : number of available floating point registers |
||||||
|
SLJIT_NUMBER_OF_SCRATCH_FLOAT_REGISTERS : number of available floating point scratch registers |
||||||
|
SLJIT_NUMBER_OF_SAVED_FLOAT_REGISTERS : number of available floating point saved registers |
||||||
|
SLJIT_WORD_SHIFT : the shift required to apply when accessing a sljit_sw/sljit_uw array by index |
||||||
|
SLJIT_DOUBLE_SHIFT : the shift required to apply when accessing |
||||||
|
a double precision floating point array by index |
||||||
|
SLJIT_SINGLE_SHIFT : the shift required to apply when accessing |
||||||
|
a single precision floating point array by index |
||||||
|
SLJIT_LOCALS_OFFSET : local space starting offset (SLJIT_SP + SLJIT_LOCALS_OFFSET) |
||||||
|
SLJIT_RETURN_ADDRESS_OFFSET : a return instruction always adds this offset to the return address |
||||||
|
|
||||||
|
Other macros: |
||||||
|
SLJIT_CALL : C calling convention define for both calling JIT form C and C callbacks for JIT |
||||||
|
SLJIT_W(number) : defining 64 bit constants on 64 bit architectures (compiler independent helper) |
||||||
|
*/ |
||||||
|
|
||||||
|
/*****************/ |
||||||
|
/* Sanity check. */ |
||||||
|
/*****************/ |
||||||
|
|
||||||
|
#if !((defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) \ |
||||||
|
|| (defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_V5 && SLJIT_CONFIG_ARM_V5) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_V7 && SLJIT_CONFIG_ARM_V7) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_THUMB2 && SLJIT_CONFIG_ARM_THUMB2) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_64 && SLJIT_CONFIG_ARM_64) \
|
||||||
|
|| (defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) \
|
||||||
|
|| (defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) \
|
||||||
|
|| (defined SLJIT_CONFIG_MIPS_32 && SLJIT_CONFIG_MIPS_32) \
|
||||||
|
|| (defined SLJIT_CONFIG_MIPS_64 && SLJIT_CONFIG_MIPS_64) \
|
||||||
|
|| (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) \
|
||||||
|
|| (defined SLJIT_CONFIG_TILEGX && SLJIT_CONFIG_TILEGX) \
|
||||||
|
|| (defined SLJIT_CONFIG_AUTO && SLJIT_CONFIG_AUTO) \
|
||||||
|
|| (defined SLJIT_CONFIG_UNSUPPORTED && SLJIT_CONFIG_UNSUPPORTED)) |
||||||
|
#error "An architecture must be selected" |
||||||
|
#endif |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) \ |
||||||
|
+ (defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) \
|
||||||
|
+ (defined SLJIT_CONFIG_ARM_V5 && SLJIT_CONFIG_ARM_V5) \
|
||||||
|
+ (defined SLJIT_CONFIG_ARM_V7 && SLJIT_CONFIG_ARM_V7) \
|
||||||
|
+ (defined SLJIT_CONFIG_ARM_THUMB2 && SLJIT_CONFIG_ARM_THUMB2) \
|
||||||
|
+ (defined SLJIT_CONFIG_ARM_64 && SLJIT_CONFIG_ARM_64) \
|
||||||
|
+ (defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) \
|
||||||
|
+ (defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) \
|
||||||
|
+ (defined SLJIT_CONFIG_TILEGX && SLJIT_CONFIG_TILEGX) \
|
||||||
|
+ (defined SLJIT_CONFIG_MIPS_32 && SLJIT_CONFIG_MIPS_32) \
|
||||||
|
+ (defined SLJIT_CONFIG_MIPS_64 && SLJIT_CONFIG_MIPS_64) \
|
||||||
|
+ (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) \
|
||||||
|
+ (defined SLJIT_CONFIG_AUTO && SLJIT_CONFIG_AUTO) \
|
||||||
|
+ (defined SLJIT_CONFIG_UNSUPPORTED && SLJIT_CONFIG_UNSUPPORTED) >= 2 |
||||||
|
#error "Multiple architectures are selected" |
||||||
|
#endif |
||||||
|
|
||||||
|
/********************************************************/ |
||||||
|
/* Automatic CPU detection (requires compiler support). */ |
||||||
|
/********************************************************/ |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_AUTO && SLJIT_CONFIG_AUTO) |
||||||
|
|
||||||
|
#ifndef _WIN32 |
||||||
|
|
||||||
|
#if defined(__i386__) || defined(__i386) |
||||||
|
#define SLJIT_CONFIG_X86_32 1 |
||||||
|
#elif defined(__x86_64__) |
||||||
|
#define SLJIT_CONFIG_X86_64 1 |
||||||
|
#elif defined(__arm__) || defined(__ARM__) |
||||||
|
#ifdef __thumb2__ |
||||||
|
#define SLJIT_CONFIG_ARM_THUMB2 1 |
||||||
|
#elif defined(__ARM_ARCH_7__) || defined(__ARM_ARCH_7A__) || defined(__ARM_ARCH_7R__) |
||||||
|
#define SLJIT_CONFIG_ARM_V7 1 |
||||||
|
#else |
||||||
|
#define SLJIT_CONFIG_ARM_V5 1 |
||||||
|
#endif |
||||||
|
#elif defined (__aarch64__) |
||||||
|
#define SLJIT_CONFIG_ARM_64 1 |
||||||
|
#elif defined(__ppc64__) || defined(__powerpc64__) || defined(_ARCH_PPC64) || (defined(_POWER) && defined(__64BIT__)) |
||||||
|
#define SLJIT_CONFIG_PPC_64 1 |
||||||
|
#elif defined(__ppc__) || defined(__powerpc__) || defined(_ARCH_PPC) || defined(_ARCH_PWR) || defined(_ARCH_PWR2) || defined(_POWER) |
||||||
|
#define SLJIT_CONFIG_PPC_32 1 |
||||||
|
#elif defined(__mips__) && !defined(_LP64) |
||||||
|
#define SLJIT_CONFIG_MIPS_32 1 |
||||||
|
#elif defined(__mips64) |
||||||
|
#define SLJIT_CONFIG_MIPS_64 1 |
||||||
|
#elif defined(__sparc__) || defined(__sparc) |
||||||
|
#define SLJIT_CONFIG_SPARC_32 1 |
||||||
|
#elif defined(__tilegx__) |
||||||
|
#define SLJIT_CONFIG_TILEGX 1 |
||||||
|
#else |
||||||
|
/* Unsupported architecture */ |
||||||
|
#define SLJIT_CONFIG_UNSUPPORTED 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#else /* !_WIN32 */ |
||||||
|
|
||||||
|
#if defined(_M_X64) || defined(__x86_64__) |
||||||
|
#define SLJIT_CONFIG_X86_64 1 |
||||||
|
#elif defined(_ARM_) |
||||||
|
#define SLJIT_CONFIG_ARM_V5 1 |
||||||
|
#else |
||||||
|
#define SLJIT_CONFIG_X86_32 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#endif /* !WIN32 */ |
||||||
|
#endif /* SLJIT_CONFIG_AUTO */ |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_UNSUPPORTED && SLJIT_CONFIG_UNSUPPORTED) |
||||||
|
#undef SLJIT_EXECUTABLE_ALLOCATOR |
||||||
|
#endif |
||||||
|
|
||||||
|
/******************************/ |
||||||
|
/* CPU family type detection. */ |
||||||
|
/******************************/ |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_ARM_V5 && SLJIT_CONFIG_ARM_V5) || (defined SLJIT_CONFIG_ARM_V7 && SLJIT_CONFIG_ARM_V7) \ |
||||||
|
|| (defined SLJIT_CONFIG_ARM_THUMB2 && SLJIT_CONFIG_ARM_THUMB2) |
||||||
|
#define SLJIT_CONFIG_ARM_32 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) || (defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) |
||||||
|
#define SLJIT_CONFIG_X86 1 |
||||||
|
#elif (defined SLJIT_CONFIG_ARM_32 && SLJIT_CONFIG_ARM_32) || (defined SLJIT_CONFIG_ARM_64 && SLJIT_CONFIG_ARM_64) |
||||||
|
#define SLJIT_CONFIG_ARM 1 |
||||||
|
#elif (defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) || (defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) |
||||||
|
#define SLJIT_CONFIG_PPC 1 |
||||||
|
#elif (defined SLJIT_CONFIG_MIPS_32 && SLJIT_CONFIG_MIPS_32) || (defined SLJIT_CONFIG_MIPS_64 && SLJIT_CONFIG_MIPS_64) |
||||||
|
#define SLJIT_CONFIG_MIPS 1 |
||||||
|
#elif (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) || (defined SLJIT_CONFIG_SPARC_64 && SLJIT_CONFIG_SPARC_64) |
||||||
|
#define SLJIT_CONFIG_SPARC 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
/**********************************/ |
||||||
|
/* External function definitions. */ |
||||||
|
/**********************************/ |
||||||
|
|
||||||
|
#if !(defined SLJIT_STD_MACROS_DEFINED && SLJIT_STD_MACROS_DEFINED) |
||||||
|
|
||||||
|
/* These libraries are needed for the macros below. */ |
||||||
|
#include <stdlib.h> |
||||||
|
#include <string.h> |
||||||
|
|
||||||
|
#endif /* SLJIT_STD_MACROS_DEFINED */ |
||||||
|
|
||||||
|
/* General macros:
|
||||||
|
Note: SLJIT is designed to be independent from them as possible. |
||||||
|
|
||||||
|
In release mode (SLJIT_DEBUG is not defined) only the following |
||||||
|
external functions are needed: |
||||||
|
*/ |
||||||
|
|
||||||
|
#ifndef SLJIT_MALLOC |
||||||
|
#define SLJIT_MALLOC(size, allocator_data) malloc(size) |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef SLJIT_FREE |
||||||
|
#define SLJIT_FREE(ptr, allocator_data) free(ptr) |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef SLJIT_MEMMOVE |
||||||
|
#define SLJIT_MEMMOVE(dest, src, len) memmove(dest, src, len) |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef SLJIT_ZEROMEM |
||||||
|
#define SLJIT_ZEROMEM(dest, len) memset(dest, 0, len) |
||||||
|
#endif |
||||||
|
|
||||||
|
/***************************/ |
||||||
|
/* Compiler helper macros. */ |
||||||
|
/***************************/ |
||||||
|
|
||||||
|
#if !defined(SLJIT_LIKELY) && !defined(SLJIT_UNLIKELY) |
||||||
|
|
||||||
|
#if defined(__GNUC__) && (__GNUC__ >= 3) |
||||||
|
#define SLJIT_LIKELY(x) __builtin_expect((x), 1) |
||||||
|
#define SLJIT_UNLIKELY(x) __builtin_expect((x), 0) |
||||||
|
#else |
||||||
|
#define SLJIT_LIKELY(x) (x) |
||||||
|
#define SLJIT_UNLIKELY(x) (x) |
||||||
|
#endif |
||||||
|
|
||||||
|
#endif /* !defined(SLJIT_LIKELY) && !defined(SLJIT_UNLIKELY) */ |
||||||
|
|
||||||
|
#ifndef SLJIT_INLINE |
||||||
|
/* Inline functions. Some old compilers do not support them. */ |
||||||
|
#if defined(__SUNPRO_C) && __SUNPRO_C <= 0x510 |
||||||
|
#define SLJIT_INLINE |
||||||
|
#else |
||||||
|
#define SLJIT_INLINE __inline |
||||||
|
#endif |
||||||
|
#endif /* !SLJIT_INLINE */ |
||||||
|
|
||||||
|
#ifndef SLJIT_NOINLINE |
||||||
|
/* Not inline functions. */ |
||||||
|
#if defined(__GNUC__) |
||||||
|
#define SLJIT_NOINLINE __attribute__ ((noinline)) |
||||||
|
#else |
||||||
|
#define SLJIT_NOINLINE |
||||||
|
#endif |
||||||
|
#endif /* !SLJIT_INLINE */ |
||||||
|
|
||||||
|
#ifndef SLJIT_CONST |
||||||
|
/* Const variables. */ |
||||||
|
#define SLJIT_CONST const |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef SLJIT_UNUSED_ARG |
||||||
|
/* Unused arguments. */ |
||||||
|
#define SLJIT_UNUSED_ARG(arg) (void)arg |
||||||
|
#endif |
||||||
|
|
||||||
|
/*********************************/ |
||||||
|
/* Type of public API functions. */ |
||||||
|
/*********************************/ |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_STATIC && SLJIT_CONFIG_STATIC) |
||||||
|
/* Static ABI functions. For all-in-one programs. */ |
||||||
|
|
||||||
|
#if defined(__GNUC__) |
||||||
|
/* Disable unused warnings in gcc. */ |
||||||
|
#define SLJIT_API_FUNC_ATTRIBUTE static __attribute__((unused)) |
||||||
|
#else |
||||||
|
#define SLJIT_API_FUNC_ATTRIBUTE static |
||||||
|
#endif |
||||||
|
|
||||||
|
#else |
||||||
|
#define SLJIT_API_FUNC_ATTRIBUTE |
||||||
|
#endif /* (defined SLJIT_CONFIG_STATIC && SLJIT_CONFIG_STATIC) */ |
||||||
|
|
||||||
|
/****************************/ |
||||||
|
/* Instruction cache flush. */ |
||||||
|
/****************************/ |
||||||
|
|
||||||
|
#ifndef SLJIT_CACHE_FLUSH |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86 && SLJIT_CONFIG_X86) |
||||||
|
|
||||||
|
/* Not required to implement on archs with unified caches. */ |
||||||
|
#define SLJIT_CACHE_FLUSH(from, to) |
||||||
|
|
||||||
|
#elif defined __APPLE__ |
||||||
|
|
||||||
|
/* Supported by all macs since Mac OS 10.5.
|
||||||
|
However, it does not work on non-jailbroken iOS devices, |
||||||
|
although the compilation is successful. */ |
||||||
|
#include <libkern/OSCacheControl.h> |
||||||
|
#define SLJIT_CACHE_FLUSH(from, to) \ |
||||||
|
sys_icache_invalidate((char*)(from), (char*)(to) - (char*)(from)) |
||||||
|
|
||||||
|
#elif defined __ANDROID__ |
||||||
|
|
||||||
|
/* Android lacks __clear_cache; instead, cacheflush should be used. */ |
||||||
|
|
||||||
|
#define SLJIT_CACHE_FLUSH(from, to) \ |
||||||
|
cacheflush((long)(from), (long)(to), 0) |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_PPC && SLJIT_CONFIG_PPC) |
||||||
|
|
||||||
|
/* The __clear_cache() implementation of GCC is a dummy function on PowerPC. */ |
||||||
|
#define SLJIT_CACHE_FLUSH(from, to) \ |
||||||
|
ppc_cache_flush((from), (to)) |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) |
||||||
|
|
||||||
|
/* The __clear_cache() implementation of GCC is a dummy function on Sparc. */ |
||||||
|
#define SLJIT_CACHE_FLUSH(from, to) \ |
||||||
|
sparc_cache_flush((from), (to)) |
||||||
|
|
||||||
|
#else |
||||||
|
|
||||||
|
/* Calls __ARM_NR_cacheflush on ARM-Linux. */ |
||||||
|
#define SLJIT_CACHE_FLUSH(from, to) \ |
||||||
|
__clear_cache((char*)(from), (char*)(to)) |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#endif /* !SLJIT_CACHE_FLUSH */ |
||||||
|
|
||||||
|
/******************************************************/ |
||||||
|
/* Byte/half/int/word/single/double type definitions. */ |
||||||
|
/******************************************************/ |
||||||
|
|
||||||
|
/* 8 bit byte type. */ |
||||||
|
typedef unsigned char sljit_ub; |
||||||
|
typedef signed char sljit_sb; |
||||||
|
|
||||||
|
/* 16 bit half-word type. */ |
||||||
|
typedef unsigned short int sljit_uh; |
||||||
|
typedef signed short int sljit_sh; |
||||||
|
|
||||||
|
/* 32 bit integer type. */ |
||||||
|
typedef unsigned int sljit_ui; |
||||||
|
typedef signed int sljit_si; |
||||||
|
|
||||||
|
/* Machine word type. Enough for storing a pointer.
|
||||||
|
32 bit for 32 bit machines. |
||||||
|
64 bit for 64 bit machines. */ |
||||||
|
#if (defined SLJIT_CONFIG_UNSUPPORTED && SLJIT_CONFIG_UNSUPPORTED) |
||||||
|
/* Just to have something. */ |
||||||
|
#define SLJIT_WORD_SHIFT 0 |
||||||
|
typedef unsigned long int sljit_uw; |
||||||
|
typedef long int sljit_sw; |
||||||
|
#elif !(defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) \ |
||||||
|
&& !(defined SLJIT_CONFIG_ARM_64 && SLJIT_CONFIG_ARM_64) \
|
||||||
|
&& !(defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) \
|
||||||
|
&& !(defined SLJIT_CONFIG_MIPS_64 && SLJIT_CONFIG_MIPS_64) \
|
||||||
|
&& !(defined SLJIT_CONFIG_TILEGX && SLJIT_CONFIG_TILEGX) |
||||||
|
#define SLJIT_32BIT_ARCHITECTURE 1 |
||||||
|
#define SLJIT_WORD_SHIFT 2 |
||||||
|
typedef unsigned int sljit_uw; |
||||||
|
typedef int sljit_sw; |
||||||
|
#else |
||||||
|
#define SLJIT_64BIT_ARCHITECTURE 1 |
||||||
|
#define SLJIT_WORD_SHIFT 3 |
||||||
|
#ifdef _WIN32 |
||||||
|
typedef unsigned __int64 sljit_uw; |
||||||
|
typedef __int64 sljit_sw; |
||||||
|
#else |
||||||
|
typedef unsigned long int sljit_uw; |
||||||
|
typedef long int sljit_sw; |
||||||
|
#endif |
||||||
|
#endif |
||||||
|
|
||||||
|
typedef sljit_uw sljit_p; |
||||||
|
|
||||||
|
/* Floating point types. */ |
||||||
|
typedef float sljit_s; |
||||||
|
typedef double sljit_d; |
||||||
|
|
||||||
|
/* Shift for pointer sized data. */ |
||||||
|
#define SLJIT_POINTER_SHIFT SLJIT_WORD_SHIFT |
||||||
|
|
||||||
|
/* Shift for double precision sized data. */ |
||||||
|
#define SLJIT_DOUBLE_SHIFT 3 |
||||||
|
#define SLJIT_SINGLE_SHIFT 2 |
||||||
|
|
||||||
|
#ifndef SLJIT_W |
||||||
|
|
||||||
|
/* Defining long constants. */ |
||||||
|
#if (defined SLJIT_64BIT_ARCHITECTURE && SLJIT_64BIT_ARCHITECTURE) |
||||||
|
#define SLJIT_W(w) (w##ll) |
||||||
|
#else |
||||||
|
#define SLJIT_W(w) (w) |
||||||
|
#endif |
||||||
|
|
||||||
|
#endif /* !SLJIT_W */ |
||||||
|
|
||||||
|
/*************************/ |
||||||
|
/* Endianness detection. */ |
||||||
|
/*************************/ |
||||||
|
|
||||||
|
#if !defined(SLJIT_BIG_ENDIAN) && !defined(SLJIT_LITTLE_ENDIAN) |
||||||
|
|
||||||
|
/* These macros are mostly useful for the applications. */ |
||||||
|
#if (defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) \ |
||||||
|
|| (defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) |
||||||
|
|
||||||
|
#ifdef __LITTLE_ENDIAN__ |
||||||
|
#define SLJIT_LITTLE_ENDIAN 1 |
||||||
|
#else |
||||||
|
#define SLJIT_BIG_ENDIAN 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_MIPS_32 && SLJIT_CONFIG_MIPS_32) \ |
||||||
|
|| (defined SLJIT_CONFIG_MIPS_64 && SLJIT_CONFIG_MIPS_64) |
||||||
|
|
||||||
|
#ifdef __MIPSEL__ |
||||||
|
#define SLJIT_LITTLE_ENDIAN 1 |
||||||
|
#else |
||||||
|
#define SLJIT_BIG_ENDIAN 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) |
||||||
|
|
||||||
|
#define SLJIT_BIG_ENDIAN 1 |
||||||
|
|
||||||
|
#else |
||||||
|
#define SLJIT_LITTLE_ENDIAN 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#endif /* !defined(SLJIT_BIG_ENDIAN) && !defined(SLJIT_LITTLE_ENDIAN) */ |
||||||
|
|
||||||
|
/* Sanity check. */ |
||||||
|
#if (defined SLJIT_BIG_ENDIAN && SLJIT_BIG_ENDIAN) && (defined SLJIT_LITTLE_ENDIAN && SLJIT_LITTLE_ENDIAN) |
||||||
|
#error "Exactly one endianness must be selected" |
||||||
|
#endif |
||||||
|
|
||||||
|
#if !(defined SLJIT_BIG_ENDIAN && SLJIT_BIG_ENDIAN) && !(defined SLJIT_LITTLE_ENDIAN && SLJIT_LITTLE_ENDIAN) |
||||||
|
#error "Exactly one endianness must be selected" |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef SLJIT_UNALIGNED |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) \ |
||||||
|
|| (defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_V7 && SLJIT_CONFIG_ARM_V7) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_THUMB2 && SLJIT_CONFIG_ARM_THUMB2) \
|
||||||
|
|| (defined SLJIT_CONFIG_ARM_64 && SLJIT_CONFIG_ARM_64) \
|
||||||
|
|| (defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) \
|
||||||
|
|| (defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) |
||||||
|
#define SLJIT_UNALIGNED 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
#endif /* !SLJIT_UNALIGNED */ |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) |
||||||
|
/* Auto detect SSE2 support using CPUID.
|
||||||
|
On 64 bit x86 cpus, sse2 must be present. */ |
||||||
|
#define SLJIT_DETECT_SSE2 1 |
||||||
|
#endif |
||||||
|
|
||||||
|
/*****************************************************************************************/ |
||||||
|
/* Calling convention of functions generated by SLJIT or called from the generated code. */ |
||||||
|
/*****************************************************************************************/ |
||||||
|
|
||||||
|
#ifndef SLJIT_CALL |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) |
||||||
|
|
||||||
|
#if defined(__GNUC__) && !defined(__APPLE__) |
||||||
|
|
||||||
|
#define SLJIT_CALL __attribute__ ((fastcall)) |
||||||
|
#define SLJIT_X86_32_FASTCALL 1 |
||||||
|
|
||||||
|
#elif defined(_MSC_VER) |
||||||
|
|
||||||
|
#define SLJIT_CALL __fastcall |
||||||
|
#define SLJIT_X86_32_FASTCALL 1 |
||||||
|
|
||||||
|
#elif defined(__BORLANDC__) |
||||||
|
|
||||||
|
#define SLJIT_CALL __msfastcall |
||||||
|
#define SLJIT_X86_32_FASTCALL 1 |
||||||
|
|
||||||
|
#else /* Unknown compiler. */ |
||||||
|
|
||||||
|
/* The cdecl attribute is the default. */ |
||||||
|
#define SLJIT_CALL |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#else /* Non x86-32 architectures. */ |
||||||
|
|
||||||
|
#define SLJIT_CALL |
||||||
|
|
||||||
|
#endif /* SLJIT_CONFIG_X86_32 */ |
||||||
|
|
||||||
|
#endif /* !SLJIT_CALL */ |
||||||
|
|
||||||
|
#ifndef SLJIT_INDIRECT_CALL |
||||||
|
#if ((defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) && (defined SLJIT_BIG_ENDIAN && SLJIT_BIG_ENDIAN)) \ |
||||||
|
|| ((defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) && defined _AIX) |
||||||
|
/* It seems certain ppc compilers use an indirect addressing for functions
|
||||||
|
which makes things complicated. */ |
||||||
|
#define SLJIT_INDIRECT_CALL 1 |
||||||
|
#endif |
||||||
|
#endif /* SLJIT_INDIRECT_CALL */ |
||||||
|
|
||||||
|
/* The offset which needs to be substracted from the return address to
|
||||||
|
determine the next executed instruction after return. */ |
||||||
|
#ifndef SLJIT_RETURN_ADDRESS_OFFSET |
||||||
|
#if (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) |
||||||
|
#define SLJIT_RETURN_ADDRESS_OFFSET 8 |
||||||
|
#else |
||||||
|
#define SLJIT_RETURN_ADDRESS_OFFSET 0 |
||||||
|
#endif |
||||||
|
#endif /* SLJIT_RETURN_ADDRESS_OFFSET */ |
||||||
|
|
||||||
|
/***************************************************/ |
||||||
|
/* Functions of the built-in executable allocator. */ |
||||||
|
/***************************************************/ |
||||||
|
|
||||||
|
#if (defined SLJIT_EXECUTABLE_ALLOCATOR && SLJIT_EXECUTABLE_ALLOCATOR) |
||||||
|
SLJIT_API_FUNC_ATTRIBUTE void* sljit_malloc_exec(sljit_uw size); |
||||||
|
SLJIT_API_FUNC_ATTRIBUTE void sljit_free_exec(void* ptr); |
||||||
|
SLJIT_API_FUNC_ATTRIBUTE void sljit_free_unused_memory_exec(void); |
||||||
|
#define SLJIT_MALLOC_EXEC(size) sljit_malloc_exec(size) |
||||||
|
#define SLJIT_FREE_EXEC(ptr) sljit_free_exec(ptr) |
||||||
|
#endif |
||||||
|
|
||||||
|
/**********************************************/ |
||||||
|
/* Registers and locals offset determination. */ |
||||||
|
/**********************************************/ |
||||||
|
|
||||||
|
#if (defined SLJIT_CONFIG_X86_32 && SLJIT_CONFIG_X86_32) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 10 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 7 |
||||||
|
#if (defined SLJIT_X86_32_FASTCALL && SLJIT_X86_32_FASTCALL) |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE ((2 + 4) * sizeof(sljit_sw)) |
||||||
|
#else |
||||||
|
/* Maximum 3 arguments are passed on the stack, +1 for double alignment. */ |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE ((3 + 1 + 4) * sizeof(sljit_sw)) |
||||||
|
#endif /* SLJIT_X86_32_FASTCALL */ |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) |
||||||
|
|
||||||
|
#ifndef _WIN64 |
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 12 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 6 |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE (sizeof(sljit_sw)) |
||||||
|
#else |
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 12 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 8 |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE ((4 + 2) * sizeof(sljit_sw)) |
||||||
|
#endif /* _WIN64 */ |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_ARM_V5 && SLJIT_CONFIG_ARM_V5) || (defined SLJIT_CONFIG_ARM_V7 && SLJIT_CONFIG_ARM_V7) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 11 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 8 |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE 0 |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_ARM_THUMB2 && SLJIT_CONFIG_ARM_THUMB2) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 11 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 7 |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE 0 |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_ARM_64 && SLJIT_CONFIG_ARM_64) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 25 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 10 |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE (2 * sizeof(sljit_sw)) |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_PPC && SLJIT_CONFIG_PPC) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 22 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 17 |
||||||
|
#if (defined SLJIT_CONFIG_PPC_64 && SLJIT_CONFIG_PPC_64) || (defined _AIX) |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE ((6 + 8) * sizeof(sljit_sw)) |
||||||
|
#elif (defined SLJIT_CONFIG_PPC_32 && SLJIT_CONFIG_PPC_32) |
||||||
|
/* Add +1 for double alignment. */ |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE ((3 + 1) * sizeof(sljit_sw)) |
||||||
|
#else |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE (3 * sizeof(sljit_sw)) |
||||||
|
#endif /* SLJIT_CONFIG_PPC_64 || _AIX */ |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_MIPS && SLJIT_CONFIG_MIPS) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 17 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 8 |
||||||
|
#if (defined SLJIT_CONFIG_MIPS_32 && SLJIT_CONFIG_MIPS_32) |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE (4 * sizeof(sljit_sw)) |
||||||
|
#else |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE 0 |
||||||
|
#endif |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_SPARC && SLJIT_CONFIG_SPARC) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 18 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 14 |
||||||
|
#if (defined SLJIT_CONFIG_SPARC_32 && SLJIT_CONFIG_SPARC_32) |
||||||
|
/* Add +1 for double alignment. */ |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE ((23 + 1) * sizeof(sljit_sw)) |
||||||
|
#endif |
||||||
|
|
||||||
|
#elif (defined SLJIT_CONFIG_UNSUPPORTED && SLJIT_CONFIG_UNSUPPORTED) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_REGISTERS 0 |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_REGISTERS 0 |
||||||
|
#define SLJIT_LOCALS_OFFSET_BASE 0 |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#define SLJIT_LOCALS_OFFSET (SLJIT_LOCALS_OFFSET_BASE) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_SCRATCH_REGISTERS \ |
||||||
|
(SLJIT_NUMBER_OF_REGISTERS - SLJIT_NUMBER_OF_SAVED_REGISTERS) |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_FLOAT_REGISTERS 6 |
||||||
|
#if (defined SLJIT_CONFIG_X86_64 && SLJIT_CONFIG_X86_64) && (defined _WIN64) |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_FLOAT_REGISTERS 1 |
||||||
|
#else |
||||||
|
#define SLJIT_NUMBER_OF_SAVED_FLOAT_REGISTERS 0 |
||||||
|
#endif |
||||||
|
|
||||||
|
#define SLJIT_NUMBER_OF_SCRATCH_FLOAT_REGISTERS \ |
||||||
|
(SLJIT_NUMBER_OF_FLOAT_REGISTERS - SLJIT_NUMBER_OF_SAVED_FLOAT_REGISTERS) |
||||||
|
|
||||||
|
/*************************************/ |
||||||
|
/* Debug and verbose related macros. */ |
||||||
|
/*************************************/ |
||||||
|
|
||||||
|
#if (defined SLJIT_VERBOSE && SLJIT_VERBOSE) |
||||||
|
#include <stdio.h> |
||||||
|
#endif |
||||||
|
|
||||||
|
#if (defined SLJIT_DEBUG && SLJIT_DEBUG) |
||||||
|
|
||||||
|
#if !defined(SLJIT_ASSERT) || !defined(SLJIT_ASSERT_STOP) |
||||||
|
|
||||||
|
/* SLJIT_HALT_PROCESS must halt the process. */ |
||||||
|
#ifndef SLJIT_HALT_PROCESS |
||||||
|
#include <stdlib.h> |
||||||
|
|
||||||
|
#define SLJIT_HALT_PROCESS() \ |
||||||
|
abort(); |
||||||
|
#endif /* !SLJIT_HALT_PROCESS */ |
||||||
|
|
||||||
|
#include <stdio.h> |
||||||
|
|
||||||
|
#endif /* !SLJIT_ASSERT || !SLJIT_ASSERT_STOP */ |
||||||
|
|
||||||
|
/* Feel free to redefine these two macros. */ |
||||||
|
#ifndef SLJIT_ASSERT |
||||||
|
|
||||||
|
#define SLJIT_ASSERT(x) \ |
||||||
|
do { \
|
||||||
|
if (SLJIT_UNLIKELY(!(x))) { \
|
||||||
|
printf("Assertion failed at " __FILE__ ":%d\n", __LINE__); \
|
||||||
|
SLJIT_HALT_PROCESS(); \
|
||||||
|
} \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#endif /* !SLJIT_ASSERT */ |
||||||
|
|
||||||
|
#ifndef SLJIT_ASSERT_STOP |
||||||
|
|
||||||
|
#define SLJIT_ASSERT_STOP() \ |
||||||
|
do { \
|
||||||
|
printf("Should never been reached " __FILE__ ":%d\n", __LINE__); \
|
||||||
|
SLJIT_HALT_PROCESS(); \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#endif /* !SLJIT_ASSERT_STOP */ |
||||||
|
|
||||||
|
#else /* (defined SLJIT_DEBUG && SLJIT_DEBUG) */ |
||||||
|
|
||||||
|
/* Forcing empty, but valid statements. */ |
||||||
|
#undef SLJIT_ASSERT |
||||||
|
#undef SLJIT_ASSERT_STOP |
||||||
|
|
||||||
|
#define SLJIT_ASSERT(x) \ |
||||||
|
do { } while (0) |
||||||
|
#define SLJIT_ASSERT_STOP() \ |
||||||
|
do { } while (0) |
||||||
|
|
||||||
|
#endif /* (defined SLJIT_DEBUG && SLJIT_DEBUG) */ |
||||||
|
|
||||||
|
#ifndef SLJIT_COMPILE_ASSERT |
||||||
|
|
||||||
|
/* Should be improved eventually. */ |
||||||
|
#define SLJIT_COMPILE_ASSERT(x, description) \ |
||||||
|
SLJIT_ASSERT(x) |
||||||
|
|
||||||
|
#endif /* !SLJIT_COMPILE_ASSERT */ |
||||||
|
|
||||||
|
#endif |
||||||
@ -0,0 +1,153 @@ |
|||||||
|
/* Adapted from NetBSB libc by Dieter Baron */ |
||||||
|
|
||||||
|
/* NetBSD: gettemp.c,v 1.13 2003/12/05 00:57:36 uebayasi Exp */ |
||||||
|
|
||||||
|
/*
|
||||||
|
* Copyright (c) 1987, 1993 |
||||||
|
* The Regents of the University of California. All rights reserved. |
||||||
|
* |
||||||
|
* 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. |
||||||
|
* 3. Neither the name of the University nor the names of its contributors |
||||||
|
* may be used to endorse or promote products derived from this software |
||||||
|
* without specific prior written permission. |
||||||
|
* |
||||||
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND 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 REGENTS OR 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. |
||||||
|
*/ |
||||||
|
|
||||||
|
#include <sys/types.h> |
||||||
|
#include <sys/stat.h> |
||||||
|
|
||||||
|
#include <assert.h> |
||||||
|
#include <ctype.h> |
||||||
|
#include <errno.h> |
||||||
|
#include <fcntl.h> |
||||||
|
#ifdef _WIN32 |
||||||
|
#include <io.h> |
||||||
|
#endif |
||||||
|
#include <stdio.h> |
||||||
|
#include <stdlib.h> |
||||||
|
#ifndef _WIN32 |
||||||
|
#include <unistd.h> |
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef O_BINARY |
||||||
|
#define O_BINARY 0 |
||||||
|
#endif |
||||||
|
|
||||||
|
|
||||||
|
int |
||||||
|
_zip_mkstemp(char *path) |
||||||
|
{ |
||||||
|
#ifdef _WIN32 |
||||||
|
int ret; |
||||||
|
ret = _creat(_mktemp(path), _S_IREAD|_S_IWRITE); |
||||||
|
if (ret == -1) { |
||||||
|
return 0; |
||||||
|
} else { |
||||||
|
return ret; |
||||||
|
} |
||||||
|
#else |
||||||
|
int fd;
|
||||||
|
char *start, *trv; |
||||||
|
struct stat sbuf; |
||||||
|
pid_t pid; |
||||||
|
|
||||||
|
/* To guarantee multiple calls generate unique names even if
|
||||||
|
the file is not created. 676 different possibilities with 7 |
||||||
|
or more X's, 26 with 6 or less. */ |
||||||
|
static char xtra[2] = "aa"; |
||||||
|
int xcnt = 0; |
||||||
|
|
||||||
|
pid = getpid(); |
||||||
|
|
||||||
|
/* Move to end of path and count trailing X's. */ |
||||||
|
for (trv = path; *trv; ++trv) |
||||||
|
if (*trv == 'X') |
||||||
|
xcnt++; |
||||||
|
else |
||||||
|
xcnt = 0;
|
||||||
|
|
||||||
|
/* Use at least one from xtra. Use 2 if more than 6 X's. */ |
||||||
|
if (*(trv - 1) == 'X') |
||||||
|
*--trv = xtra[0]; |
||||||
|
if (xcnt > 6 && *(trv - 1) == 'X') |
||||||
|
*--trv = xtra[1]; |
||||||
|
|
||||||
|
/* Set remaining X's to pid digits with 0's to the left. */ |
||||||
|
while (*--trv == 'X') { |
||||||
|
*trv = (pid % 10) + '0'; |
||||||
|
pid /= 10; |
||||||
|
} |
||||||
|
|
||||||
|
/* update xtra for next call. */ |
||||||
|
if (xtra[0] != 'z') |
||||||
|
xtra[0]++; |
||||||
|
else { |
||||||
|
xtra[0] = 'a'; |
||||||
|
if (xtra[1] != 'z') |
||||||
|
xtra[1]++; |
||||||
|
else |
||||||
|
xtra[1] = 'a'; |
||||||
|
} |
||||||
|
|
||||||
|
/*
|
||||||
|
* check the target directory; if you have six X's and it |
||||||
|
* doesn't exist this runs for a *very* long time. |
||||||
|
*/ |
||||||
|
for (start = trv + 1;; --trv) { |
||||||
|
if (trv <= path) |
||||||
|
break; |
||||||
|
if (*trv == '/') { |
||||||
|
*trv = '\0'; |
||||||
|
if (stat(path, &sbuf)) |
||||||
|
return (0); |
||||||
|
if (!S_ISDIR(sbuf.st_mode)) { |
||||||
|
errno = ENOTDIR; |
||||||
|
return (0); |
||||||
|
} |
||||||
|
*trv = '/'; |
||||||
|
break; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
for (;;) { |
||||||
|
if ((fd=open(path, O_CREAT|O_EXCL|O_RDWR|O_BINARY, 0600)) >= 0) |
||||||
|
return (fd); |
||||||
|
if (errno != EEXIST) |
||||||
|
return (0); |
||||||
|
|
||||||
|
/* tricky little algorithm for backward compatibility */ |
||||||
|
for (trv = start;;) { |
||||||
|
if (!*trv) |
||||||
|
return (0); |
||||||
|
if (*trv == 'z') |
||||||
|
*trv++ = 'a'; |
||||||
|
else { |
||||||
|
if (isdigit((unsigned char)*trv)) |
||||||
|
*trv = 'a'; |
||||||
|
else |
||||||
|
++*trv; |
||||||
|
break; |
||||||
|
} |
||||||
|
} |
||||||
|
} |
||||||
|
/*NOTREACHED*/ |
||||||
|
#endif |
||||||
|
} |
||||||
@ -0,0 +1,450 @@ |
|||||||
|
/*
|
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| PHP Version 5 | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| Copyright (c) 1997-2014 The PHP Group | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| This source file is subject to version 3.01 of the PHP license, | |
||||||
|
| that is bundled with this package in the file LICENSE, and is | |
||||||
|
| available through the world-wide-web at the following url: | |
||||||
|
| http://www.php.net/license/3_01.txt |
|
||||||
|
| If you did not receive a copy of the PHP license and are unable to | |
||||||
|
| obtain it through the world-wide-web, please send a note to | |
||||||
|
| license@php.net so we can mail you a copy immediately. | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| Author: Sascha Schumann <sascha@schumann.cx> | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
*/ |
||||||
|
|
||||||
|
/* $Id$ */ |
||||||
|
|
||||||
|
#include <sys/types.h> |
||||||
|
#include <string.h> |
||||||
|
#include <errno.h> |
||||||
|
#ifdef HAVE_DIRENT_H |
||||||
|
#include <dirent.h> |
||||||
|
#endif |
||||||
|
|
||||||
|
#include "php_reentrancy.h" |
||||||
|
#include "ext/standard/php_rand.h" /* for PHP_RAND_MAX */ |
||||||
|
|
||||||
|
enum { |
||||||
|
LOCALTIME_R, |
||||||
|
CTIME_R, |
||||||
|
ASCTIME_R, |
||||||
|
GMTIME_R, |
||||||
|
READDIR_R, |
||||||
|
NUMBER_OF_LOCKS |
||||||
|
}; |
||||||
|
|
||||||
|
#if defined(PHP_NEED_REENTRANCY) |
||||||
|
|
||||||
|
#include <TSRM.h> |
||||||
|
|
||||||
|
static MUTEX_T reentrant_locks[NUMBER_OF_LOCKS]; |
||||||
|
|
||||||
|
#define local_lock(x) tsrm_mutex_lock(reentrant_locks[x]) |
||||||
|
#define local_unlock(x) tsrm_mutex_unlock(reentrant_locks[x]) |
||||||
|
|
||||||
|
#else |
||||||
|
|
||||||
|
#define local_lock(x) |
||||||
|
#define local_unlock(x) |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if defined(PHP_IRIX_TIME_R) |
||||||
|
|
||||||
|
#define HAVE_CTIME_R 1 |
||||||
|
#define HAVE_ASCTIME_R 1 |
||||||
|
|
||||||
|
PHPAPI char *php_ctime_r(const time_t *clock, char *buf) |
||||||
|
{ |
||||||
|
if (ctime_r(clock, buf) == buf) |
||||||
|
return (buf); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
PHPAPI char *php_asctime_r(const struct tm *tm, char *buf) |
||||||
|
{ |
||||||
|
if (asctime_r(tm, buf) == buf) |
||||||
|
return (buf); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if defined(PHP_HPUX_TIME_R) |
||||||
|
|
||||||
|
#define HAVE_LOCALTIME_R 1 |
||||||
|
#define HAVE_CTIME_R 1 |
||||||
|
#define HAVE_ASCTIME_R 1 |
||||||
|
#define HAVE_GMTIME_R 1 |
||||||
|
|
||||||
|
PHPAPI struct tm *php_localtime_r(const time_t *const timep, struct tm *p_tm) |
||||||
|
{ |
||||||
|
if (localtime_r(timep, p_tm) == 0) |
||||||
|
return (p_tm); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
PHPAPI char *php_ctime_r(const time_t *clock, char *buf) |
||||||
|
{ |
||||||
|
if (ctime_r(clock, buf, 26) != -1) |
||||||
|
return (buf); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
PHPAPI char *php_asctime_r(const struct tm *tm, char *buf) |
||||||
|
{ |
||||||
|
if (asctime_r(tm, buf, 26) != -1) |
||||||
|
return (buf); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
PHPAPI struct tm *php_gmtime_r(const time_t *const timep, struct tm *p_tm) |
||||||
|
{ |
||||||
|
if (gmtime_r(timep, p_tm) == 0) |
||||||
|
return (p_tm); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if defined(__BEOS__) |
||||||
|
|
||||||
|
PHPAPI struct tm *php_gmtime_r(const time_t *const timep, struct tm *p_tm) |
||||||
|
{ |
||||||
|
/* Modified according to LibC definition */ |
||||||
|
if (((struct tm*)gmtime_r(timep, p_tm)) == p_tm) |
||||||
|
return (p_tm); |
||||||
|
return (NULL); |
||||||
|
} |
||||||
|
|
||||||
|
#endif /* BEOS */ |
||||||
|
|
||||||
|
#if !defined(HAVE_POSIX_READDIR_R) |
||||||
|
|
||||||
|
PHPAPI int php_readdir_r(DIR *dirp, struct dirent *entry,
|
||||||
|
struct dirent **result) |
||||||
|
{ |
||||||
|
#if defined(HAVE_OLD_READDIR_R) |
||||||
|
int ret = 0; |
||||||
|
|
||||||
|
/* We cannot rely on the return value of readdir_r
|
||||||
|
as it differs between various platforms |
||||||
|
(HPUX returns 0 on success whereas Solaris returns non-zero) |
||||||
|
*/ |
||||||
|
entry->d_name[0] = '\0'; |
||||||
|
readdir_r(dirp, entry, result); |
||||||
|
|
||||||
|
if (entry->d_name[0] == '\0') { |
||||||
|
*result = NULL; |
||||||
|
ret = errno; |
||||||
|
} else { |
||||||
|
*result = entry; |
||||||
|
} |
||||||
|
return ret; |
||||||
|
#else |
||||||
|
struct dirent *ptr; |
||||||
|
int ret = 0; |
||||||
|
|
||||||
|
local_lock(READDIR_R); |
||||||
|
|
||||||
|
errno = 0; |
||||||
|
|
||||||
|
ptr = readdir(dirp); |
||||||
|
|
||||||
|
if (!ptr && errno != 0) |
||||||
|
ret = errno; |
||||||
|
|
||||||
|
if (ptr) |
||||||
|
memcpy(entry, ptr, sizeof(*ptr)); |
||||||
|
|
||||||
|
*result = ptr; |
||||||
|
|
||||||
|
local_unlock(READDIR_R); |
||||||
|
|
||||||
|
return ret; |
||||||
|
#endif |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if !defined(HAVE_LOCALTIME_R) && defined(HAVE_LOCALTIME) |
||||||
|
|
||||||
|
PHPAPI struct tm *php_localtime_r(const time_t *const timep, struct tm *p_tm) |
||||||
|
{ |
||||||
|
struct tm *tmp; |
||||||
|
|
||||||
|
local_lock(LOCALTIME_R); |
||||||
|
|
||||||
|
tmp = localtime(timep); |
||||||
|
if (tmp) { |
||||||
|
memcpy(p_tm, tmp, sizeof(struct tm)); |
||||||
|
tmp = p_tm; |
||||||
|
} |
||||||
|
|
||||||
|
local_unlock(LOCALTIME_R); |
||||||
|
|
||||||
|
return tmp; |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if !defined(HAVE_CTIME_R) && defined(HAVE_CTIME) |
||||||
|
|
||||||
|
PHPAPI char *php_ctime_r(const time_t *clock, char *buf) |
||||||
|
{ |
||||||
|
char *tmp; |
||||||
|
|
||||||
|
local_lock(CTIME_R); |
||||||
|
|
||||||
|
tmp = ctime(clock); |
||||||
|
strcpy(buf, tmp); |
||||||
|
|
||||||
|
local_unlock(CTIME_R); |
||||||
|
|
||||||
|
return buf; |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if !defined(HAVE_ASCTIME_R) && defined(HAVE_ASCTIME) |
||||||
|
|
||||||
|
PHPAPI char *php_asctime_r(const struct tm *tm, char *buf) |
||||||
|
{ |
||||||
|
char *tmp; |
||||||
|
|
||||||
|
local_lock(ASCTIME_R); |
||||||
|
|
||||||
|
tmp = asctime(tm); |
||||||
|
strcpy(buf, tmp); |
||||||
|
|
||||||
|
local_unlock(ASCTIME_R); |
||||||
|
|
||||||
|
return buf; |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if !defined(HAVE_GMTIME_R) && defined(HAVE_GMTIME) |
||||||
|
|
||||||
|
PHPAPI struct tm *php_gmtime_r(const time_t *const timep, struct tm *p_tm) |
||||||
|
{ |
||||||
|
struct tm *tmp; |
||||||
|
|
||||||
|
local_lock(GMTIME_R); |
||||||
|
|
||||||
|
tmp = gmtime(timep); |
||||||
|
if (tmp) { |
||||||
|
memcpy(p_tm, tmp, sizeof(struct tm)); |
||||||
|
tmp = p_tm; |
||||||
|
} |
||||||
|
|
||||||
|
local_unlock(GMTIME_R); |
||||||
|
|
||||||
|
return tmp; |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#if defined(PHP_NEED_REENTRANCY) |
||||||
|
|
||||||
|
void reentrancy_startup(void) |
||||||
|
{ |
||||||
|
int i; |
||||||
|
|
||||||
|
for (i = 0; i < NUMBER_OF_LOCKS; i++) { |
||||||
|
reentrant_locks[i] = tsrm_mutex_alloc(); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
void reentrancy_shutdown(void) |
||||||
|
{ |
||||||
|
int i; |
||||||
|
|
||||||
|
for (i = 0; i < NUMBER_OF_LOCKS; i++) { |
||||||
|
tsrm_mutex_free(reentrant_locks[i]); |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
#ifndef HAVE_RAND_R |
||||||
|
|
||||||
|
/*-
|
||||||
|
* Copyright (c) 1990, 1993 |
||||||
|
* The Regents of the University of California. All rights reserved. |
||||||
|
* |
||||||
|
* 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. |
||||||
|
* 3. All advertising materials mentioning features or use of this software |
||||||
|
* must display the following acknowledgement: |
||||||
|
* This product includes software developed by the University of |
||||||
|
* California, Berkeley and its contributors. |
||||||
|
* 4. Neither the name of the University nor the names of its contributors |
||||||
|
* may be used to endorse or promote products derived from this software |
||||||
|
* without specific prior written permission. |
||||||
|
* |
||||||
|
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND 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 REGENTS OR 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. |
||||||
|
* |
||||||
|
* Posix rand_r function added May 1999 by Wes Peters <wes@softweyr.com>. |
||||||
|
*/ |
||||||
|
|
||||||
|
#include <sys/types.h> |
||||||
|
#include <stdlib.h> |
||||||
|
|
||||||
|
static int |
||||||
|
do_rand(unsigned long *ctx) |
||||||
|
{ |
||||||
|
return ((*ctx = *ctx * 1103515245 + 12345) % ((u_long)PHP_RAND_MAX + 1)); |
||||||
|
} |
||||||
|
|
||||||
|
|
||||||
|
PHPAPI int |
||||||
|
php_rand_r(unsigned int *ctx) |
||||||
|
{ |
||||||
|
u_long val = (u_long) *ctx; |
||||||
|
*ctx = do_rand(&val); |
||||||
|
return (int) *ctx; |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
|
||||||
|
#ifndef HAVE_STRTOK_R |
||||||
|
|
||||||
|
/*
|
||||||
|
* Copyright (c) 1998 Softweyr LLC. All rights reserved. |
||||||
|
* |
||||||
|
* strtok_r, from Berkeley strtok |
||||||
|
* Oct 13, 1998 by Wes Peters <wes@softweyr.com> |
||||||
|
* |
||||||
|
* Copyright (c) 1988, 1993 |
||||||
|
* The Regents of the University of California. All rights reserved. |
||||||
|
* |
||||||
|
* 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 |
||||||
|
* notices, this list of conditions and the following disclaimer. |
||||||
|
*
|
||||||
|
* 2. Redistributions in binary form must reproduce the above copyright |
||||||
|
* notices, this list of conditions and the following disclaimer in the |
||||||
|
* documentation and/or other materials provided with the distribution. |
||||||
|
*
|
||||||
|
* 3. All advertising materials mentioning features or use of this software |
||||||
|
* must display the following acknowledgement: |
||||||
|
* |
||||||
|
* This product includes software developed by Softweyr LLC, the |
||||||
|
* University of California, Berkeley, and its contributors. |
||||||
|
* |
||||||
|
* 4. Neither the name of the University nor the names of its contributors |
||||||
|
* may be used to endorse or promote products derived from this software |
||||||
|
* without specific prior written permission. |
||||||
|
* |
||||||
|
* THIS SOFTWARE IS PROVIDED BY SOFTWEYR LLC, THE REGENTS AND 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 SOFTWEYR LLC, THE |
||||||
|
* REGENTS, OR 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. |
||||||
|
*/ |
||||||
|
|
||||||
|
#include <stddef.h> |
||||||
|
|
||||||
|
PHPAPI char * |
||||||
|
php_strtok_r(char *s, const char *delim, char **last) |
||||||
|
{ |
||||||
|
char *spanp; |
||||||
|
int c, sc; |
||||||
|
char *tok; |
||||||
|
|
||||||
|
if (s == NULL && (s = *last) == NULL) |
||||||
|
{ |
||||||
|
return NULL; |
||||||
|
} |
||||||
|
|
||||||
|
/*
|
||||||
|
* Skip (span) leading delimiters (s += strspn(s, delim), sort of). |
||||||
|
*/ |
||||||
|
cont: |
||||||
|
c = *s++; |
||||||
|
for (spanp = (char *)delim; (sc = *spanp++) != 0; ) |
||||||
|
{ |
||||||
|
if (c == sc) |
||||||
|
{ |
||||||
|
goto cont; |
||||||
|
} |
||||||
|
} |
||||||
|
|
||||||
|
if (c == 0) /* no non-delimiter characters */ |
||||||
|
{ |
||||||
|
*last = NULL; |
||||||
|
return NULL; |
||||||
|
} |
||||||
|
tok = s - 1; |
||||||
|
|
||||||
|
/*
|
||||||
|
* Scan token (scan for delimiters: s += strcspn(s, delim), sort of). |
||||||
|
* Note that delim must have one NUL; we stop if we see that, too. |
||||||
|
*/ |
||||||
|
for (;;) |
||||||
|
{ |
||||||
|
c = *s++; |
||||||
|
spanp = (char *)delim; |
||||||
|
do |
||||||
|
{ |
||||||
|
if ((sc = *spanp++) == c) |
||||||
|
{ |
||||||
|
if (c == 0) |
||||||
|
{ |
||||||
|
s = NULL; |
||||||
|
} |
||||||
|
else |
||||||
|
{ |
||||||
|
char *w = s - 1; |
||||||
|
*w = '\0'; |
||||||
|
} |
||||||
|
*last = s; |
||||||
|
return tok; |
||||||
|
} |
||||||
|
} |
||||||
|
while (sc != 0); |
||||||
|
} |
||||||
|
/* NOTREACHED */ |
||||||
|
} |
||||||
|
|
||||||
|
#endif |
||||||
|
|
||||||
|
/*
|
||||||
|
* Local variables: |
||||||
|
* tab-width: 4 |
||||||
|
* c-basic-offset: 4 |
||||||
|
* End: |
||||||
|
* vim600: sw=4 ts=4 fdm=marker |
||||||
|
* vim<600: sw=4 ts=4 |
||||||
|
*/ |
||||||
@ -0,0 +1,97 @@ |
|||||||
|
/*
|
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| Zend Engine | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| Copyright (c) 1998-2016 Zend Technologies Ltd. (http://www.zend.com) |
|
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| This source file is subject to version 2.00 of the Zend license, | |
||||||
|
| that is bundled with this package in the file LICENSE, and is | |
||||||
|
| available through the world-wide-web at the following url: | |
||||||
|
| http://www.zend.com/license/2_00.txt. |
|
||||||
|
| If you did not receive a copy of the Zend license and are unable to | |
||||||
|
| obtain it through the world-wide-web, please send a note to | |
||||||
|
| license@zend.com so we can mail you a copy immediately. | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
| Authors: Sascha Schumann <sascha@schumann.cx> | |
||||||
|
| Ard Biesheuvel <ard.biesheuvel@linaro.org> | |
||||||
|
+----------------------------------------------------------------------+ |
||||||
|
*/ |
||||||
|
|
||||||
|
/* $Id$ */ |
||||||
|
|
||||||
|
#if defined(__i386__) && defined(__GNUC__) |
||||||
|
|
||||||
|
#define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \ |
||||||
|
long __tmpvar; \
|
||||||
|
__asm__ ("imul %3,%0\n" \
|
||||||
|
"adc $0,%1" \
|
||||||
|
: "=r"(__tmpvar),"=r"(usedval) \
|
||||||
|
: "0"(a), "r"(b), "1"(0)); \
|
||||||
|
if (usedval) (dval) = (double) (a) * (double) (b); \
|
||||||
|
else (lval) = __tmpvar; \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#elif defined(__x86_64__) && defined(__GNUC__) |
||||||
|
|
||||||
|
#define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \ |
||||||
|
long __tmpvar; \
|
||||||
|
__asm__ ("imul %3,%0\n" \
|
||||||
|
"adc $0,%1" \
|
||||||
|
: "=r"(__tmpvar),"=r"(usedval) \
|
||||||
|
: "0"(a), "r"(b), "1"(0)); \
|
||||||
|
if (usedval) (dval) = (double) (a) * (double) (b); \
|
||||||
|
else (lval) = __tmpvar; \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#elif defined(__arm__) && defined(__GNUC__) |
||||||
|
|
||||||
|
#define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \ |
||||||
|
long __tmpvar; \
|
||||||
|
__asm__("smull %0, %1, %2, %3\n" \
|
||||||
|
"sub %1, %1, %0, asr #31" \
|
||||||
|
: "=&r"(__tmpvar), "=&r"(usedval) \
|
||||||
|
: "r"(a), "r"(b)); \
|
||||||
|
if (usedval) (dval) = (double) (a) * (double) (b); \
|
||||||
|
else (lval) = __tmpvar; \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#elif defined(__aarch64__) && defined(__GNUC__) |
||||||
|
|
||||||
|
#define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \ |
||||||
|
long __tmpvar; \
|
||||||
|
__asm__("mul %0, %2, %3\n" \
|
||||||
|
"smulh %1, %2, %3\n" \
|
||||||
|
"sub %1, %1, %0, asr #63\n" \
|
||||||
|
: "=&r"(__tmpvar), "=&r"(usedval) \
|
||||||
|
: "r"(a), "r"(b)); \
|
||||||
|
if (usedval) (dval) = (double) (a) * (double) (b); \
|
||||||
|
else (lval) = __tmpvar; \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#elif SIZEOF_LONG == 4 && defined(HAVE_ZEND_LONG64) |
||||||
|
|
||||||
|
#define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \ |
||||||
|
zend_long64 __result = (zend_long64) (a) * (zend_long64) (b); \
|
||||||
|
if (__result > LONG_MAX || __result < LONG_MIN) { \
|
||||||
|
(dval) = (double) __result; \
|
||||||
|
(usedval) = 1; \
|
||||||
|
} else { \
|
||||||
|
(lval) = (long) __result; \
|
||||||
|
(usedval) = 0; \
|
||||||
|
} \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#else |
||||||
|
|
||||||
|
#define ZEND_SIGNED_MULTIPLY_LONG(a, b, lval, dval, usedval) do { \ |
||||||
|
long __lres = (a) * (b); \
|
||||||
|
long double __dres = (long double)(a) * (long double)(b); \
|
||||||
|
long double __delta = (long double) __lres - __dres; \
|
||||||
|
if ( ((usedval) = (( __dres + __delta ) != __dres))) { \
|
||||||
|
(dval) = __dres; \
|
||||||
|
} else { \
|
||||||
|
(lval) = __lres; \
|
||||||
|
} \
|
||||||
|
} while (0) |
||||||
|
|
||||||
|
#endif |
||||||
Loading…
Reference in new issue