michael@0: /* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
michael@0: /* This Source Code Form is subject to the terms of the Mozilla Public
michael@0:  * License, v. 2.0. If a copy of the MPL was not distributed with this file,
michael@0:  * You can obtain one at http://mozilla.org/MPL/2.0/. */
michael@0: 
michael@0: #include <pthread.h>
michael@0: #include <string.h>
michael@0: #include <stdlib.h>
michael@0: #include <time.h>
michael@0: #include <unistd.h>
michael@0: #include <android/log.h>
michael@0: #include <sys/syscall.h>
michael@0: 
michael@0: #include "mozilla/Alignment.h"
michael@0: 
michael@0: #include <vector>
michael@0: 
michael@0: #define NS_EXPORT __attribute__ ((visibility("default")))
michael@0: 
michael@0: #if ANDROID_VERSION < 17 || defined(MOZ_WIDGET_ANDROID)
michael@0: /* Android doesn't have pthread_atfork(), so we need to use our own. */
michael@0: struct AtForkFuncs {
michael@0:   void (*prepare)(void);
michael@0:   void (*parent)(void);
michael@0:   void (*child)(void);
michael@0: };
michael@0: 
michael@0: /* jemalloc's initialization calls pthread_atfork. When pthread_atfork (see
michael@0:  * further below) stores the corresponding data, it's going to allocate memory,
michael@0:  * which will loop back to jemalloc's initialization, leading to a dead-lock.
michael@0:  * So, for that specific vector, we use a special allocator that returns a
michael@0:  * static buffer for small sizes, and force the initial vector capacity to
michael@0:  * a size enough to store one atfork function table. */
michael@0: template <typename T>
michael@0: struct SpecialAllocator: public std::allocator<T>
michael@0: {
michael@0:   SpecialAllocator(): bufUsed(false) {}
michael@0: 
michael@0:   inline typename std::allocator<T>::pointer allocate(typename std::allocator<T>::size_type n, const void * = 0) {
michael@0:     if (!bufUsed && n == 1) {
michael@0:       bufUsed = true;
michael@0:       return buf.addr();
michael@0:     }
michael@0:     return reinterpret_cast<T *>(::operator new(sizeof(T) * n));
michael@0:   }
michael@0: 
michael@0:   inline void deallocate(typename std::allocator<T>::pointer p, typename std::allocator<T>::size_type n) {
michael@0:     if (p == buf.addr())
michael@0:       bufUsed = false;
michael@0:     else
michael@0:       ::operator delete(p);
michael@0:   }
michael@0: 
michael@0:   template<typename U>
michael@0:   struct rebind {
michael@0:     typedef SpecialAllocator<U> other;
michael@0:   };
michael@0: 
michael@0: private:
michael@0:   mozilla::AlignedStorage2<T> buf;
michael@0:   bool bufUsed;
michael@0: };
michael@0: 
michael@0: static std::vector<AtForkFuncs, SpecialAllocator<AtForkFuncs> > atfork;
michael@0: #endif
michael@0: 
michael@0: #ifdef MOZ_WIDGET_GONK
michael@0: #include "cpuacct.h"
michael@0: #define WRAP(x) x
michael@0: 
michael@0: #if ANDROID_VERSION < 17 || defined(MOZ_WIDGET_ANDROID)
michael@0: extern "C" NS_EXPORT int
michael@0: timer_create(clockid_t, struct sigevent*, timer_t*)
michael@0: {
michael@0:   __android_log_print(ANDROID_LOG_ERROR, "BionicGlue", "timer_create not supported!");
michael@0:   abort();
michael@0:   return -1;
michael@0: }
michael@0: #endif
michael@0: 
michael@0: #else
michael@0: #define cpuacct_add(x)
michael@0: #define WRAP(x) __wrap_##x
michael@0: #endif
michael@0: 
michael@0: #if ANDROID_VERSION < 17 || defined(MOZ_WIDGET_ANDROID)
michael@0: extern "C" NS_EXPORT int
michael@0: WRAP(pthread_atfork)(void (*prepare)(void), void (*parent)(void), void (*child)(void))
michael@0: {
michael@0:   AtForkFuncs funcs;
michael@0:   funcs.prepare = prepare;
michael@0:   funcs.parent = parent;
michael@0:   funcs.child = child;
michael@0:   if (!atfork.capacity())
michael@0:     atfork.reserve(1);
michael@0:   atfork.push_back(funcs);
michael@0:   return 0;
michael@0: }
michael@0: 
michael@0: extern "C" NS_EXPORT pid_t
michael@0: WRAP(fork)(void)
michael@0: {
michael@0:   pid_t pid;
michael@0:   for (auto it = atfork.rbegin();
michael@0:        it < atfork.rend(); ++it)
michael@0:     if (it->prepare)
michael@0:       it->prepare();
michael@0: 
michael@0:   switch ((pid = syscall(__NR_clone, SIGCHLD, NULL, NULL, NULL, NULL))) {
michael@0:   case 0:
michael@0:     cpuacct_add(getuid());
michael@0:     for (auto it = atfork.begin();
michael@0:          it < atfork.end(); ++it)
michael@0:       if (it->child)
michael@0:         it->child();
michael@0:     break;
michael@0:   default:
michael@0:     for (auto it = atfork.begin();
michael@0:          it < atfork.end(); ++it)
michael@0:       if (it->parent)
michael@0:         it->parent();
michael@0:   }
michael@0:   return pid;
michael@0: }
michael@0: #endif
michael@0: 
michael@0: extern "C" NS_EXPORT int
michael@0: WRAP(raise)(int sig)
michael@0: {
michael@0:   // Bug 741272: Bionic incorrectly uses kill(), which signals the
michael@0:   // process, and thus could signal another thread (and let this one
michael@0:   // return "successfully" from raising a fatal signal).
michael@0:   //
michael@0:   // Bug 943170: POSIX specifies pthread_kill(pthread_self(), sig) as
michael@0:   // equivalent to raise(sig), but Bionic also has a bug with these
michael@0:   // functions, where a forked child will kill its parent instead.
michael@0: 
michael@0:   extern pid_t gettid(void);
michael@0:   return syscall(__NR_tgkill, getpid(), gettid(), sig);
michael@0: }
michael@0: 
michael@0: /*
michael@0:  * The following wrappers for PR_Xxx are needed until we can get
michael@0:  * PR_DuplicateEnvironment landed in NSPR.
michael@0:  * See see bug 772734 and bug 773414.
michael@0:  *
michael@0:  * We can't #include the pr headers here, and we can't call any of the
michael@0:  * PR/PL functions either, so we just reimplemnt using native code.
michael@0:  */
michael@0: 
michael@0: static pthread_mutex_t  _pr_envLock = PTHREAD_MUTEX_INITIALIZER;
michael@0: 
michael@0: extern "C" NS_EXPORT char*
michael@0: __wrap_PR_GetEnv(const char *var)
michael@0: {
michael@0:     char *ev;
michael@0: 
michael@0:     pthread_mutex_lock(&_pr_envLock);
michael@0:     ev = getenv(var);
michael@0:     pthread_mutex_unlock(&_pr_envLock);
michael@0:     return ev;
michael@0: }
michael@0: 
michael@0: extern "C" NS_EXPORT int
michael@0: __wrap_PR_SetEnv(const char *string)
michael@0: {
michael@0:     int result;
michael@0: 
michael@0:     if ( !strchr(string, '=')) return(-1);
michael@0: 
michael@0:     pthread_mutex_lock(&_pr_envLock);
michael@0:     result = putenv(string);
michael@0:     pthread_mutex_unlock(&_pr_envLock);
michael@0:     return (result)? -1 : 0;
michael@0: }
michael@0: 
michael@0: extern "C" NS_EXPORT pthread_mutex_t *
michael@0: PR_GetEnvLock(void)
michael@0: {
michael@0:   return &_pr_envLock;
michael@0: }
michael@0: 
michael@0: /* Amazon Kindle Fire HD's libc provides most of the
michael@0:  * functions in string.h as weak symbols, which dlsym
michael@0:  * cannot resolve. Thus, we must wrap these functions.
michael@0:  * See bug 791419.
michael@0:  */
michael@0: 
michael@0: #ifndef MOZ_WIDGET_GONK
michael@0: #include <string.h>
michael@0: extern "C" NS_EXPORT void* __real_memccpy(void * a0, const void * a1, int a2, size_t a3);
michael@0: extern "C" NS_EXPORT void* __real_memchr(const void * a0, int a1, size_t a2);
michael@0: extern "C" NS_EXPORT void* __real_memrchr(const void * a0, int a1, size_t a2);
michael@0: extern "C" NS_EXPORT int __real_memcmp(const void * a0, const void * a1, size_t a2);
michael@0: extern "C" NS_EXPORT void* __real_memcpy(void * a0, const void * a1, size_t a2);
michael@0: extern "C" NS_EXPORT void* __real_memmove(void * a0, const void * a1, size_t a2);
michael@0: extern "C" NS_EXPORT void* __real_memset(void * a0, int a1, size_t a2);
michael@0: extern "C" NS_EXPORT void* __real_memmem(const void * a0, size_t a1, const void * a2, size_t a3);
michael@0: extern "C" NS_EXPORT void __real_memswap(void * a0, void * a1, size_t a2);
michael@0: extern "C" NS_EXPORT char* __real_index(const char * a0, int a1);
michael@0: extern "C" NS_EXPORT char* __real_strchr(const char * a0, int a1);
michael@0: extern "C" NS_EXPORT char* __real_strrchr(const char * a0, int a1);
michael@0: extern "C" NS_EXPORT size_t __real_strlen(const char * a0);
michael@0: extern "C" NS_EXPORT int __real_strcmp(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strcpy(char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strcat(char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT int __real_strcasecmp(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT int __real_strncasecmp(const char * a0, const char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT char* __real_strstr(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strcasestr(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strtok(char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strtok_r(char * a0, const char * a1, char** a2);
michael@0: extern "C" NS_EXPORT char* __real_strerror(int a0);
michael@0: extern "C" NS_EXPORT int __real_strerror_r(int a0, char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT size_t __real_strnlen(const char * a0, size_t a1);
michael@0: extern "C" NS_EXPORT char* __real_strncat(char * a0, const char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT int __real_strncmp(const char * a0, const char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT char* __real_strncpy(char * a0, const char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT size_t __real_strlcat(char * a0, const char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT size_t __real_strlcpy(char * a0, const char * a1, size_t a2);
michael@0: extern "C" NS_EXPORT size_t __real_strcspn(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strpbrk(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT char* __real_strsep(char ** a0, const char * a1);
michael@0: extern "C" NS_EXPORT size_t __real_strspn(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT int __real_strcoll(const char * a0, const char * a1);
michael@0: extern "C" NS_EXPORT size_t __real_strxfrm(char * a0, const char * a1, size_t a2);
michael@0: 
michael@0: extern "C" NS_EXPORT void* __wrap_memccpy(void * a0, const void * a1, int a2, size_t a3) { return __real_memccpy(a0, a1, a2, a3); }
michael@0: extern "C" NS_EXPORT void* __wrap_memchr(const void * a0, int a1, size_t a2) { return __real_memchr(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT void* __wrap_memrchr(const void * a0, int a1, size_t a2) { return __real_memrchr(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT int __wrap_memcmp(const void * a0, const void * a1, size_t a2) { return __real_memcmp(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT void* __wrap_memcpy(void * a0, const void * a1, size_t a2) { return __real_memcpy(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT void* __wrap_memmove(void * a0, const void * a1, size_t a2) { return __real_memmove(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT void* __wrap_memset(void * a0, int a1, size_t a2) { return __real_memset(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT void* __wrap_memmem(const void * a0, size_t a1, const void * a2, size_t a3) { return __real_memmem(a0, a1, a2, a3); }
michael@0: extern "C" NS_EXPORT void __wrap_memswap(void * a0, void * a1, size_t a2) { __real_memswap(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT char* __wrap_index(const char * a0, int a1) { return __real_index(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strchr(const char * a0, int a1) { return __real_strchr(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strrchr(const char * a0, int a1) { return __real_strrchr(a0, a1); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strlen(const char * a0) { return __real_strlen(a0); }
michael@0: extern "C" NS_EXPORT int __wrap_strcmp(const char * a0, const char * a1) { return __real_strcmp(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strcpy(char * a0, const char * a1) { return __real_strcpy(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strcat(char * a0, const char * a1) { return __real_strcat(a0, a1); }
michael@0: extern "C" NS_EXPORT int __wrap_strcasecmp(const char * a0, const char * a1) { return __real_strcasecmp(a0, a1); }
michael@0: extern "C" NS_EXPORT int __wrap_strncasecmp(const char * a0, const char * a1, size_t a2) { return __real_strncasecmp(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT char* __wrap_strstr(const char * a0, const char * a1) { return __real_strstr(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strcasestr(const char * a0, const char * a1) { return __real_strcasestr(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strtok(char * a0, const char * a1) { return __real_strtok(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strtok_r(char * a0, const char * a1, char** a2) { return __real_strtok_r(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT char* __wrap_strerror(int a0) { return __real_strerror(a0); }
michael@0: extern "C" NS_EXPORT int __wrap_strerror_r(int a0, char * a1, size_t a2) { return __real_strerror_r(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strnlen(const char * a0, size_t a1) { return __real_strnlen(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strncat(char * a0, const char * a1, size_t a2) { return __real_strncat(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT int __wrap_strncmp(const char * a0, const char * a1, size_t a2) { return __real_strncmp(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT char* __wrap_strncpy(char * a0, const char * a1, size_t a2) { return __real_strncpy(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strlcat(char * a0, const char * a1, size_t a2) { return __real_strlcat(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strlcpy(char * a0, const char * a1, size_t a2) { return __real_strlcpy(a0, a1, a2); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strcspn(const char * a0, const char * a1) { return __real_strcspn(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strpbrk(const char * a0, const char * a1) { return __real_strpbrk(a0, a1); }
michael@0: extern "C" NS_EXPORT char* __wrap_strsep(char ** a0, const char * a1) { return __real_strsep(a0, a1); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strspn(const char * a0, const char * a1) { return __real_strspn(a0, a1); }
michael@0: extern "C" NS_EXPORT int __wrap_strcoll(const char * a0, const char * a1) { return __real_strcoll(a0, a1); }
michael@0: extern "C" NS_EXPORT size_t __wrap_strxfrm(char * a0, const char * a1, size_t a2) { return __real_strxfrm(a0, a1, a2); }
michael@0: #endif