mirror/v
1
0
Fork 0
mirror of https://github.com/vlang/v.git synced 2023-08-10 21:13:21 +03:00
Code Issues Projects Releases Wiki Activity

cgen: improve generated code formatting (#5693)

Browse Source
This commit is contained in:
yuyi 2020-07-06 18:33:57 +08:00 committed by GitHub
parent fc7237be7b
commit c94038af89
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 265 additions and 265 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

63
vlib/v/gen/cgen.v
View File

@ -177,40 +177,53 @@ pub fn cgen(files []ast.File, table &table.Table, pref &pref.Preferences) string
g.finish() g.finish()
// //
mut b := strings.new_builder(250000) mut b := strings.new_builder(250000)
b.writeln(g.hashes()) b.write(g.hashes())
b.writeln(g.comptime_defines.str()) b.write(g.comptime_defines.str())
b.writeln('\n// V typedefs:') b.writeln('\n// V typedefs:')
b.writeln(g.typedefs.str()) b.write(g.typedefs.str())
b.writeln('\n// V typedefs2:') b.writeln('\n// V typedefs2:')
b.writeln(g.typedefs2.str()) b.write(g.typedefs2.str())
b.writeln('\n// V cheaders:') b.writeln('\n// V cheaders:')
b.writeln(g.cheaders.str()) b.write(g.cheaders.str())
b.writeln('\n// V includes:') b.writeln('\n// V includes:')
b.writeln(g.includes.str()) b.write(g.includes.str())
b.writeln('\n// Enum definitions:') b.writeln('\n// Enum definitions:')
b.writeln(g.enum_typedefs.str()) b.write(g.enum_typedefs.str())
b.writeln('\n// V type definitions:') b.writeln('\n// V type definitions:')
b.writeln(g.type_definitions.str()) b.write(g.type_definitions.str())
b.writeln('\n// V Option_xxx definitions:') b.writeln('\n// V Option_xxx definitions:')
b.writeln(g.options.str()) b.write(g.options.str())
b.writeln('\n// V json forward decls:') b.writeln('\n// V json forward decls:')
b.writeln(g.json_forward_decls.str()) b.write(g.json_forward_decls.str())
b.writeln('\n// V definitions:') b.writeln('\n// V definitions:')
b.writeln(g.definitions.str()) b.write(g.definitions.str())
b.writeln('\n// V profile counters:') if g.pcs_declarations.len > 0 {
b.writeln(g.pcs_declarations.str()) b.writeln('\n// V profile counters:')
b.writeln('\n// V interface table:') b.write(g.pcs_declarations.str())
b.writeln(g.interface_table()) }
b.writeln('\n// V gowrappers:') interface_table := g.interface_table()
b.writeln(g.gowrappers.str()) if interface_table.len > 0 {
b.writeln('\n// V hotcode definitions:') b.writeln('\n// V interface table:')
b.writeln(g.hotcode_definitions.str()) b.write(interface_table)
b.writeln('\n// V stringliterals:') }
b.writeln(g.stringliterals.str()) if g.gowrappers.len > 0 {
b.writeln('\n// V auto str functions:') b.writeln('\n// V gowrappers:')
b.writeln(g.auto_str_funcs.str()) b.write(g.gowrappers.str())
}
if g.hotcode_definitions.len > 0 {
b.writeln('\n// V hotcode definitions:')
b.write(g.hotcode_definitions.str())
}
if g.stringliterals.len > 0 {
b.writeln('\n// V stringliterals:')
b.write(g.stringliterals.str())
}
if g.auto_str_funcs.len > 0 {
b.writeln('\n// V auto str functions:')
b.write(g.auto_str_funcs.str())
}
b.writeln('\n// V out') b.writeln('\n// V out')
b.writeln(g.out.str()) b.write(g.out.str())
b.writeln('\n// THE END.') b.writeln('\n// THE END.')
return b.str() return b.str()
} }
@ -2985,7 +2998,7 @@ fn (mut g Gen) write_init_function() {
} }
g.writeln('\tbuiltin_init();') g.writeln('\tbuiltin_init();')
g.writeln('\tvinit_string_literals();') g.writeln('\tvinit_string_literals();')
g.writeln(g.inits.str()) g.write(g.inits.str())
for mod_name in g.table.imports { for mod_name in g.table.imports {
init_fn_name := '${mod_name}.init' init_fn_name := '${mod_name}.init'
if _ := g.table.find_fn(init_fn_name) { if _ := g.table.find_fn(init_fn_name) {

467
vlib/v/gen/cheaders.v
View File

@ -8,16 +8,14 @@ const (
// V_COMMIT_HASH is generated by cmd/tools/gen_vc.v . // V_COMMIT_HASH is generated by cmd/tools/gen_vc.v .
c_commit_hash_default = ' c_commit_hash_default = '
#ifndef V_COMMIT_HASH #ifndef V_COMMIT_HASH
#define V_COMMIT_HASH "@@@" #define V_COMMIT_HASH "@@@"
#endif #endif
' '
// V_CURRENT_COMMIT_HASH is updated, when V is rebuilt inside a git repo. // V_CURRENT_COMMIT_HASH is updated, when V is rebuilt inside a git repo.
c_current_commit_hash_default = ' c_current_commit_hash_default = '
#ifndef V_CURRENT_COMMIT_HASH #ifndef V_CURRENT_COMMIT_HASH
#define V_CURRENT_COMMIT_HASH "@@@" #define V_CURRENT_COMMIT_HASH "@@@"
#endif #endif
' '
c_common_macros = ' c_common_macros = '
@ -31,68 +29,66 @@ const (
#define __IRQHANDLER __attribute__((interrupt)) #define __IRQHANDLER __attribute__((interrupt))
#ifdef __TINYC__ #ifdef __TINYC__
#undef EMPTY_STRUCT_DECLARATION #undef EMPTY_STRUCT_DECLARATION
#undef EMPTY_STRUCT_INITIALIZATION #undef EMPTY_STRUCT_INITIALIZATION
#define EMPTY_STRUCT_DECLARATION char _dummy #define EMPTY_STRUCT_DECLARATION char _dummy
#define EMPTY_STRUCT_INITIALIZATION 0 #define EMPTY_STRUCT_INITIALIZATION 0
#undef EMPTY_ARRAY_OF_ELEMS #undef EMPTY_ARRAY_OF_ELEMS
#define EMPTY_ARRAY_OF_ELEMS(x,n) (x[n]) #define EMPTY_ARRAY_OF_ELEMS(x,n) (x[n])
#undef __NOINLINE #undef __NOINLINE
#undef __IRQHANDLER #undef __IRQHANDLER
// tcc does not support inlining at all // tcc does not support inlining at all
#define __NOINLINE #define __NOINLINE
#define __IRQHANDLER #define __IRQHANDLER
#undef TCCSKIP #undef TCCSKIP
#define TCCSKIP(x) #define TCCSKIP(x)
// #include <byteswap.h> // #include <byteswap.h>
#endif #endif
// for __offset_of // for __offset_of
#ifndef __offsetof #ifndef __offsetof
#define __offsetof(s,memb) \\ #define __offsetof(s,memb) \\
((size_t)((char *)&((s *)0)->memb - (char *)0)) ((size_t)((char *)&((s *)0)->memb - (char *)0))
#endif #endif
#define OPTION_CAST(x) (x) #define OPTION_CAST(x) (x)
#ifndef V64_PRINTFORMAT #ifndef V64_PRINTFORMAT
#ifdef PRIx64 #ifdef PRIx64
#define V64_PRINTFORMAT "0x%"PRIx64 #define V64_PRINTFORMAT "0x%"PRIx64
#elif defined(__WIN32__) #elif defined(__WIN32__)
#define V64_PRINTFORMAT "0x%I64x" #define V64_PRINTFORMAT "0x%I64x"
#elif defined(__linux__) && defined(__LP64__) #elif defined(__linux__) && defined(__LP64__)
#define V64_PRINTFORMAT "0x%lx" #define V64_PRINTFORMAT "0x%lx"
#else #else
#define V64_PRINTFORMAT "0x%llx" #define V64_PRINTFORMAT "0x%llx"
#endif
#endif #endif
#endif
' '
c_headers = ' c_headers = '
// c_headers // c_headers
typedef int (*qsort_callback_func)(const void*, const void*); typedef int (*qsort_callback_func)(const void*, const void*);
#include <stdio.h> // TODO remove all these includes, define all function signatures and types manually #include <stdio.h> // TODO remove all these includes, define all function signatures and types manually
#include <stdlib.h> #include <stdlib.h>
#ifdef __cplusplus #ifdef __cplusplus
# include <utility> #include <utility>
# define _MOV std::move #define _MOV std::move
#else #else
# define _MOV #define _MOV
#endif #endif
#ifndef _WIN32 #ifndef _WIN32
#if defined __has_include #if defined __has_include
#if __has_include (<execinfo.h>) #if __has_include (<execinfo.h>)
# include <execinfo.h> #include <execinfo.h>
#else #else
// Most probably musl OR __ANDROID__ ... // Most probably musl OR __ANDROID__ ...
int backtrace (void **__array, int __size) { return 0; } int backtrace (void **__array, int __size) { return 0; }
char **backtrace_symbols (void *const *__array, int __size){ return 0; } char **backtrace_symbols (void *const *__array, int __size){ return 0; }
void backtrace_symbols_fd (void *const *__array, int __size, int __fd){} void backtrace_symbols_fd (void *const *__array, int __size, int __fd){}
#endif #endif
#endif #endif
#endif #endif
//#include "fns.h" //#include "fns.h"
@ -101,116 +97,114 @@ void backtrace_symbols_fd (void *const *__array, int __size, int __fd){}
#include <string.h> // memcpy #include <string.h> // memcpy
#if INTPTR_MAX == INT32_MAX #if INTPTR_MAX == INT32_MAX
#define TARGET_IS_32BIT 1 #define TARGET_IS_32BIT 1
#elif INTPTR_MAX == INT64_MAX #elif INTPTR_MAX == INT64_MAX
#define TARGET_IS_64BIT 1 #define TARGET_IS_64BIT 1
#else #else
#error "The environment is not 32 or 64-bit." #error "The environment is not 32 or 64-bit."
#endif #endif
#if defined(__BYTE_ORDER__) && __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__ || defined(__BYTE_ORDER) && __BYTE_ORDER == __BIG_ENDIAN || defined(__BIG_ENDIAN__) || defined(__ARMEB__) || defined(__THUMBEB__) || defined(__AARCH64EB__) || defined(_MIBSEB) || defined(__MIBSEB) || defined(__MIBSEB__) #if defined(__BYTE_ORDER__) && __BYTE_ORDER__ == __ORDER_BIG_ENDIAN__ || defined(__BYTE_ORDER) && __BYTE_ORDER == __BIG_ENDIAN || defined(__BIG_ENDIAN__) || defined(__ARMEB__) || defined(__THUMBEB__) || defined(__AARCH64EB__) || defined(_MIBSEB) || defined(__MIBSEB) || defined(__MIBSEB__)
#define TARGET_ORDER_IS_BIG #define TARGET_ORDER_IS_BIG
#elif defined(__BYTE_ORDER__) && __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ || defined(__BYTE_ORDER) && __BYTE_ORDER == __LITTLE_ENDIAN || defined(__LITTLE_ENDIAN__) || defined(__ARMEL__) || defined(__THUMBEL__) || defined(__AARCH64EL__) || defined(_MIPSEL) || defined(__MIPSEL) || defined(__MIPSEL__) || defined(_M_AMD64) || defined(_M_X64) || defined(_M_IX86) #elif defined(__BYTE_ORDER__) && __BYTE_ORDER__ == __ORDER_LITTLE_ENDIAN__ || defined(__BYTE_ORDER) && __BYTE_ORDER == __LITTLE_ENDIAN || defined(__LITTLE_ENDIAN__) || defined(__ARMEL__) || defined(__THUMBEL__) || defined(__AARCH64EL__) || defined(_MIPSEL) || defined(__MIPSEL) || defined(__MIPSEL__) || defined(_M_AMD64) || defined(_M_X64) || defined(_M_IX86)
#define TARGET_ORDER_IS_LITTLE #define TARGET_ORDER_IS_LITTLE
#else #else
#error "Unknown architecture endianness" #error "Unknown architecture endianness"
#endif #endif
#ifndef _WIN32 #ifndef _WIN32
#include <ctype.h> #include <ctype.h>
#include <locale.h> // tolower #include <locale.h> // tolower
#include <sys/time.h> #include <sys/time.h>
#include <unistd.h> // sleep #include <unistd.h> // sleep
extern char **environ; extern char **environ;
#endif #endif
#if defined(__CYGWIN__) && !defined(_WIN32) #if defined(__CYGWIN__) && !defined(_WIN32)
#error Cygwin is not supported, please use MinGW or Visual Studio. #error Cygwin is not supported, please use MinGW or Visual Studio.
#endif #endif
#ifdef __linux__ #ifdef __linux__
#include <sys/types.h> #include <sys/types.h>
#include <sys/wait.h> // os__wait uses wait on nix #include <sys/wait.h> // os__wait uses wait on nix
#endif #endif
#ifdef __FreeBSD__ #ifdef __FreeBSD__
#include <sys/types.h> #include <sys/types.h>
#include <sys/wait.h> // os__wait uses wait on nix #include <sys/wait.h> // os__wait uses wait on nix
#endif #endif
#ifdef __DragonFly__ #ifdef __DragonFly__
#include <sys/types.h> #include <sys/types.h>
#include <sys/wait.h> // os__wait uses wait on nix #include <sys/wait.h> // os__wait uses wait on nix
#endif #endif
#ifdef __OpenBSD__ #ifdef __OpenBSD__
#include <sys/types.h> #include <sys/types.h>
#include <sys/resource.h> #include <sys/resource.h>
#include <sys/wait.h> // os__wait uses wait on nix #include <sys/wait.h> // os__wait uses wait on nix
#endif #endif
#ifdef __NetBSD__ #ifdef __NetBSD__
#include <sys/wait.h> // os__wait uses wait on nix #include <sys/wait.h> // os__wait uses wait on nix
#endif #endif
#ifdef __sun #ifdef __sun
#include <sys/types.h> #include <sys/types.h>
#include <sys/wait.h> // os__wait uses wait on nix #include <sys/wait.h> // os__wait uses wait on nix
#endif #endif
$c_common_macros $c_common_macros
#ifdef _WIN32 #ifdef _WIN32
#define WINVER 0x0600 #define WINVER 0x0600
#ifdef _WIN32_WINNT #ifdef _WIN32_WINNT
#undef _WIN32_WINNT #undef _WIN32_WINNT
#endif #endif
#define _WIN32_WINNT 0x0600 #define _WIN32_WINNT 0x0600
#define WIN32_LEAN_AND_MEAN #define WIN32_LEAN_AND_MEAN
#define _UNICODE #define _UNICODE
#define UNICODE #define UNICODE
#include <windows.h> #include <windows.h>
#include <io.h> // _waccess #include <io.h> // _waccess
#include <direct.h> // _wgetcwd #include <direct.h> // _wgetcwd
//#include <WinSock2.h> //#include <WinSock2.h>
#ifdef _MSC_VER
// On MSVC these are the same (as long as /volatile:ms is passed) #ifdef _MSC_VER
#define _Atomic volatile // On MSVC these are the same (as long as /volatile:ms is passed)
#define _Atomic volatile
// MSVC cannot parse some things properly // MSVC cannot parse some things properly
#undef EMPTY_STRUCT_DECLARATION #undef EMPTY_STRUCT_DECLARATION
#undef OPTION_CAST #undef OPTION_CAST
#define EMPTY_STRUCT_DECLARATION int ____dummy_variable #define EMPTY_STRUCT_DECLARATION int ____dummy_variable
#define OPTION_CAST(x) #define OPTION_CAST(x)
#undef __NOINLINE #undef __NOINLINE
#undef __IRQHANDLER #undef __IRQHANDLER
#define __NOINLINE __declspec(noinline) #define __NOINLINE __declspec(noinline)
#define __IRQHANDLER __declspec(naked) #define __IRQHANDLER __declspec(naked)
#include <dbghelp.h> #include <dbghelp.h>
#pragma comment(lib, "Dbghelp.lib") #pragma comment(lib, "Dbghelp.lib")
extern wchar_t **_wenviron;
#elif !defined(SRWLOCK_INIT)
// these seem to be missing on Windows tcc
typedef struct SRWLOCK { void* SRWLOCK; } SRWLOCK;
void InitializeSRWLock(void*);
void AcquireSRWLockShared(void*);
void AcquireSRWLockExclusive(void*);
void ReleaseSRWLockShared(void*);
void ReleaseSRWLockExclusive(void*);
#endif
extern wchar_t **_wenviron;
#elif !defined(SRWLOCK_INIT)
// these seem to be missing on Windows tcc
typedef struct SRWLOCK { void* SRWLOCK; } SRWLOCK;
void InitializeSRWLock(void*);
void AcquireSRWLockShared(void*);
void AcquireSRWLockExclusive(void*);
void ReleaseSRWLockShared(void*);
void ReleaseSRWLockExclusive(void*);
#endif
#else #else
#include <pthread.h> #include <pthread.h>
#ifndef PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP #ifndef PTHREAD_RWLOCK_PREFER_WRITER_NONRECURSIVE_NP
// musl does not have that // musl does not have that
#define pthread_rwlockattr_setkind_np(a, b) #define pthread_rwlockattr_setkind_np(a, b)
#endif #endif
#endif #endif
// g_live_info is used by live.info() // g_live_info is used by live.info()
@ -224,7 +218,6 @@ void* g_live_info = NULL;
#define _IN_MAP(val, m) map_exists(m, val) #define _IN_MAP(val, m) map_exists(m, val)
// unsigned/signed comparisons // unsigned/signed comparisons
static inline bool _us32_gt(uint32_t a, int32_t b) { return a > INT32_MAX || (int32_t)a > b; } static inline bool _us32_gt(uint32_t a, int32_t b) { return a > INT32_MAX || (int32_t)a > b; }
static inline bool _us32_ge(uint32_t a, int32_t b) { return a >= INT32_MAX || (int32_t)a >= b; } static inline bool _us32_ge(uint32_t a, int32_t b) { return a >= INT32_MAX || (int32_t)a >= b; }
static inline bool _us32_eq(uint32_t a, int32_t b) { return a <= INT32_MAX && (int32_t)a == b; } static inline bool _us32_eq(uint32_t a, int32_t b) { return a <= INT32_MAX && (int32_t)a == b; }
@ -239,18 +232,18 @@ static inline bool _us64_le(uint64_t a, int64_t b) { return a <= INT64_MAX && (i
static inline bool _us64_lt(uint64_t a, int64_t b) { return a < INT64_MAX && (int64_t)a < b; } static inline bool _us64_lt(uint64_t a, int64_t b) { return a < INT64_MAX && (int64_t)a < b; }
#if defined(__MINGW32__) || defined(__MINGW64__) || (defined(_WIN32) && defined(__TINYC__)) #if defined(__MINGW32__) || defined(__MINGW64__) || (defined(_WIN32) && defined(__TINYC__))
#undef PRId64 #undef PRId64
#undef PRIi64 #undef PRIi64
#undef PRIo64 #undef PRIo64
#undef PRIu64 #undef PRIu64
#undef PRIx64 #undef PRIx64
#undef PRIX64 #undef PRIX64
#define PRId64 "lld" #define PRId64 "lld"
#define PRIi64 "lli" #define PRIi64 "lli"
#define PRIo64 "llo" #define PRIo64 "llo"
#define PRIu64 "llu" #define PRIu64 "llu"
#define PRIx64 "llx" #define PRIx64 "llx"
#define PRIX64 "llX" #define PRIX64 "llX"
#endif #endif
//================================== GLOBALS =================================*/ //================================== GLOBALS =================================*/
@ -266,119 +259,115 @@ void _vcleanup();
// ============== wyhash ============== // ============== wyhash ==============
//Author: Wang Yi //Author: Wang Yi
#ifndef wyhash_version_gamma #ifndef wyhash_version_gamma
#define wyhash_version_gamma #define wyhash_version_gamma
#define WYHASH_CONDOM 0 #define WYHASH_CONDOM 0
#include <stdint.h> #include <stdint.h>
#include <string.h> #include <string.h>
#if defined(_MSC_VER) && defined(_M_X64) #if defined(_MSC_VER) && defined(_M_X64)
#include <intrin.h> #include <intrin.h>
#pragma intrinsic(_umul128) #pragma intrinsic(_umul128)
#endif
//const uint64_t _wyp0=0xa0761d6478bd642full, _wyp1=0xe7037ed1a0b428dbull;
#define _wyp0 ((uint64_t)0xa0761d6478bd642full)
#define _wyp1 ((uint64_t)0xe7037ed1a0b428dbull)
#if defined(__GNUC__) || defined(__INTEL_COMPILER) || defined(__clang__) || defined(__TINYC__)
#define _likely_(x) __builtin_expect(x, 1)
#define _unlikely_(x) __builtin_expect((x), 0)
#else
#define _likely_(x) (x)
#define _unlikely_(x) (x)
#endif
#if defined(TARGET_ORDER_IS_LITTLE)
#define WYHASH_LITTLE_ENDIAN 1
#elif defined(TARGET_ORDER_IS_BIG)
#define WYHASH_LITTLE_ENDIAN 0
#endif
#if (WYHASH_LITTLE_ENDIAN)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return v;}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return v;}
#else
#if defined(__GNUC__) || defined(__INTEL_COMPILER) || defined(__clang__)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return __builtin_bswap64(v);}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return __builtin_bswap32(v);}
#elif defined(_MSC_VER)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return _byteswap_uint64(v);}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return _byteswap_ulong(v);}
#elif defined(__TINYC__)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return bswap_64(v);}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return bswap_32(v);}
#endif
#endif
static inline uint64_t _wyr3(const uint8_t *p, unsigned k) { return (((uint64_t)p[0]) << 16) | (((uint64_t)p[k >> 1]) << 8) | p[k - 1];}
static inline uint64_t _wyrotr(uint64_t v, unsigned k) { return (v >> k) | (v << (64 - k));}
static inline void _wymix128(uint64_t A, uint64_t B, uint64_t *C, uint64_t *D){
A^=*C; B^=*D;
#ifdef UNOFFICIAL_WYHASH_32BIT
uint64_t hh=(A>>32)*(B>>32), hl=(A>>32)*(unsigned)B, lh=(unsigned)A*(B>>32), ll=(uint64_t)(unsigned)A*(unsigned)B;
*C=_wyrotr(hl,32)^hh; *D=_wyrotr(lh,32)^ll;
#else
#ifdef __SIZEOF_INT128__
__uint128_t r=A; r*=B; *C=(uint64_t)r; *D=(uint64_t)(r>>64);
#elif defined(_MSC_VER) && defined(_M_X64)
A=_umul128(A,B,&B); *C=A; *D=B;
#else
uint64_t ha=A>>32, hb=B>>32, la=(uint32_t)A, lb=(uint32_t)B, hi, lo;
uint64_t rh=ha*hb, rm0=ha*lb, rm1=hb*la, rl=la*lb, t=rl+(rm0<<32), c=t<rl;
lo=t+(rm1<<32); c+=lo<t; hi=rh+(rm0>>32)+(rm1>>32)+c;
*C=lo; *D=hi;
#endif
#endif
}
static inline uint64_t wyhash(const void *key, uint64_t len, uint64_t seed){
const uint8_t *p=(const uint8_t *)key;
uint64_t i=len, see1=seed;
start:
if(_likely_(i<=16)){
#ifndef WYHASH_CONDOM
uint64_t shift=(i<8)*((8-i)<<3);
//WARNING: intended reading outside buffer, trading for speed.
_wymix128((_wyr8(p)<<shift)^_wyp0,(_wyr8(p+i-8)>>shift)^_wyp1, &seed, &see1);
#else
if(_likely_(i<=8)){
if(_likely_(i>=4)) _wymix128(_wyr4(p)^_wyp0,_wyr4(p+i-4)^_wyp1, &seed, &see1);
else if (_likely_(i)) _wymix128(_wyr3(p,i)^_wyp0,_wyp1, &seed, &see1);
else _wymix128(_wyp0,_wyp1, &seed, &see1);
}
else _wymix128(_wyr8(p)^_wyp0,_wyr8(p+i-8)^_wyp1, &seed, &see1);
#endif #endif
_wymix128(len,_wyp0, &seed, &see1);
return seed^see1;
}
_wymix128(_wyr8(p)^_wyp0,_wyr8(p+8)^_wyp1, &seed, &see1);
i-=16; p+=16; goto start;
}
static inline uint64_t wyhash64(uint64_t A, uint64_t B){
_wymix128(_wyp0,_wyp1,&A,&B);
_wymix128(0,0,&A,&B);
return A^B;
}
static inline uint64_t wyrand(uint64_t *seed){
*seed+=_wyp0;
uint64_t a=0, b=0;
_wymix128(*seed,*seed^_wyp1,&a,&b);
return a^b;
}
static inline double wy2u01(uint64_t r) {
const double _wynorm=1.0/(1ull<<52);
return (r>>12)*_wynorm;
}
static inline double wy2gau(uint64_t r) {
const double _wynorm=1.0/(1ull<<20);
return ((r&0x1fffff)+((r>>21)&0x1fffff)+((r>>42)&0x1fffff))*_wynorm-3.0;
}
#endif
//const uint64_t _wyp0=0xa0761d6478bd642full, _wyp1=0xe7037ed1a0b428dbull;
#define _wyp0 ((uint64_t)0xa0761d6478bd642full)
#define _wyp1 ((uint64_t)0xe7037ed1a0b428dbull)
#if defined(__GNUC__) || defined(__INTEL_COMPILER) || defined(__clang__) || defined(__TINYC__)
#define _likely_(x) __builtin_expect(x, 1)
#define _unlikely_(x) __builtin_expect((x), 0)
#else
#define _likely_(x) (x)
#define _unlikely_(x) (x)
#endif
#if defined(TARGET_ORDER_IS_LITTLE)
#define WYHASH_LITTLE_ENDIAN 1
#elif defined(TARGET_ORDER_IS_BIG)
#define WYHASH_LITTLE_ENDIAN 0
#endif
#if (WYHASH_LITTLE_ENDIAN)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return v;}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return v;}
#else
#if defined(__GNUC__) || defined(__INTEL_COMPILER) || defined(__clang__)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return __builtin_bswap64(v);}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return __builtin_bswap32(v);}
#elif defined(_MSC_VER)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return _byteswap_uint64(v);}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return _byteswap_ulong(v);}
#elif defined(__TINYC__)
static inline uint64_t _wyr8(const uint8_t *p) { uint64_t v; memcpy(&v, p, 8); return bswap_64(v);}
static inline uint64_t _wyr4(const uint8_t *p) { unsigned v; memcpy(&v, p, 4); return bswap_32(v);}
#endif
#endif
static inline uint64_t _wyr3(const uint8_t *p, unsigned k) { return (((uint64_t)p[0]) << 16) | (((uint64_t)p[k >> 1]) << 8) | p[k - 1];}
static inline uint64_t _wyrotr(uint64_t v, unsigned k) { return (v >> k) | (v << (64 - k));}
static inline void _wymix128(uint64_t A, uint64_t B, uint64_t *C, uint64_t *D){
A^=*C; B^=*D;
#ifdef UNOFFICIAL_WYHASH_32BIT
uint64_t hh=(A>>32)*(B>>32), hl=(A>>32)*(unsigned)B, lh=(unsigned)A*(B>>32), ll=(uint64_t)(unsigned)A*(unsigned)B;
*C=_wyrotr(hl,32)^hh; *D=_wyrotr(lh,32)^ll;
#else
#ifdef __SIZEOF_INT128__
__uint128_t r=A; r*=B; *C=(uint64_t)r; *D=(uint64_t)(r>>64);
#elif defined(_MSC_VER) && defined(_M_X64)
A=_umul128(A,B,&B); *C=A; *D=B;
#else
uint64_t ha=A>>32, hb=B>>32, la=(uint32_t)A, lb=(uint32_t)B, hi, lo;
uint64_t rh=ha*hb, rm0=ha*lb, rm1=hb*la, rl=la*lb, t=rl+(rm0<<32), c=t<rl;
lo=t+(rm1<<32); c+=lo<t; hi=rh+(rm0>>32)+(rm1>>32)+c;
*C=lo; *D=hi;
#endif
#endif
}
static inline uint64_t wyhash(const void *key, uint64_t len, uint64_t seed){
const uint8_t *p=(const uint8_t *)key;
uint64_t i=len, see1=seed;
start:
if (_likely_(i<=16)) {
#ifndef WYHASH_CONDOM
uint64_t shift = (i<8)*((8-i)<<3);
//WARNING: intended reading outside buffer, trading for speed.
_wymix128((_wyr8(p)<<shift)^_wyp0, (_wyr8(p+i-8)>>shift)^_wyp1, &seed, &see1);
#else
if (_likely_(i<=8)) {
if (_likely_(i>=4)) _wymix128(_wyr4(p)^_wyp0,_wyr4(p+i-4)^_wyp1, &seed, &see1);
else if (_likely_(i)) _wymix128(_wyr3(p,i)^_wyp0,_wyp1, &seed, &see1);
else _wymix128(_wyp0,_wyp1, &seed, &see1);
}
else _wymix128(_wyr8(p)^_wyp0,_wyr8(p+i-8)^_wyp1, &seed, &see1);
#endif
_wymix128(len,_wyp0, &seed, &see1);
return seed^see1;
}
_wymix128(_wyr8(p)^_wyp0,_wyr8(p+8)^_wyp1, &seed, &see1);
i-=16; p+=16; goto start;
}
static inline uint64_t wyhash64(uint64_t A, uint64_t B){
_wymix128(_wyp0,_wyp1,&A,&B);
_wymix128(0,0,&A,&B);
return A^B;
}
static inline uint64_t wyrand(uint64_t *seed){
*seed+=_wyp0;
uint64_t a=0, b=0;
_wymix128(*seed,*seed^_wyp1,&a,&b);
return a^b;
}
static inline double wy2u01(uint64_t r) {
const double _wynorm=1.0/(1ull<<52);
return (r>>12)*_wynorm;
}
static inline double wy2gau(uint64_t r) {
const double _wynorm=1.0/(1ull<<20);
return ((r&0x1fffff)+((r>>21)&0x1fffff)+((r>>42)&0x1fffff))*_wynorm-3.0;
}
#endif
' '
c_builtin_types = ' c_builtin_types = '
//================================== builtin types ================================*/ //================================== builtin types ================================*/
typedef int64_t i64; typedef int64_t i64;
typedef int16_t i16; typedef int16_t i16;
typedef int8_t i8; typedef int8_t i8;
@ -408,23 +397,21 @@ typedef map map_int;
typedef map map_string; typedef map map_string;
typedef byte array_fixed_byte_300 [300]; typedef byte array_fixed_byte_300 [300];
typedef byte array_fixed_byte_400 [400]; typedef byte array_fixed_byte_400 [400];
#ifndef __cplusplus
#ifndef bool
typedef int bool;
#define true 1
#define false 0
#endif
#endif
#ifndef __cplusplus
#ifndef bool
typedef int bool;
#define true 1
#define false 0
#endif
#endif
' '
bare_c_headers = ' bare_c_headers = '
$c_common_macros $c_common_macros
#ifndef exit #ifndef exit
#define exit(rc) sys_exit(rc) #define exit(rc) sys_exit(rc)
void sys_exit (int); void sys_exit (int);
#endif #endif
' '
) )