/************************************************************************** * * Copyright 2009-2010 Chia-I Wu * All Rights Reserved. * * Permission is hereby granted, free of charge, to any person obtaining a * copy of this software and associated documentation files (the * "Software"), to deal in the Software without restriction, including * without limitation the rights to use, copy, modify, merge, publish, * distribute, sub license, and/or sell copies of the Software, and to * permit persons to whom the Software is furnished to do so, subject to * the following conditions: * * The above copyright notice and this permission notice (including the * next paragraph) shall be included in all copies or substantial portions * of the Software. * * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL * THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER * DEALINGS IN THE SOFTWARE. * **************************************************************************/ #include #include #include #include #include "c99_compat.h" #include "c11/threads.h" #include "egllog.h" #include "eglcurrent.h" #include "eglglobals.h" /* This should be kept in sync with _eglInitThreadInfo() */ #define _EGL_THREAD_INFO_INITIALIZER \ { EGL_SUCCESS, NULL, EGL_OPENGL_ES_API, NULL, NULL, NULL } /* a fallback thread info to guarantee that every thread always has one */ static _EGLThreadInfo dummy_thread = _EGL_THREAD_INFO_INITIALIZER; static mtx_t _egl_TSDMutex = _MTX_INITIALIZER_NP; static EGLBoolean _egl_TSDInitialized; static tss_t _egl_TSD; static void (*_egl_FreeTSD)(_EGLThreadInfo *); #ifdef GLX_USE_TLS static __thread const _EGLThreadInfo *_egl_TLS __attribute__ ((tls_model("initial-exec"))); #endif static inline void _eglSetTSD(const _EGLThreadInfo *t) { tss_set(_egl_TSD, (void *) t); #ifdef GLX_USE_TLS _egl_TLS = t; #endif } static inline _EGLThreadInfo *_eglGetTSD(void) { #ifdef GLX_USE_TLS return (_EGLThreadInfo *) _egl_TLS; #else return (_EGLThreadInfo *) tss_get(_egl_TSD); #endif } static inline void _eglFiniTSD(void) { mtx_lock(&_egl_TSDMutex); if (_egl_TSDInitialized) { _EGLThreadInfo *t = _eglGetTSD(); _egl_TSDInitialized = EGL_FALSE; if (t && _egl_FreeTSD) _egl_FreeTSD((void *) t); tss_delete(_egl_TSD); } mtx_unlock(&_egl_TSDMutex); } static inline EGLBoolean _eglInitTSD(void (*dtor)(_EGLThreadInfo *)) { if (!_egl_TSDInitialized) { mtx_lock(&_egl_TSDMutex); /* check again after acquiring lock */ if (!_egl_TSDInitialized) { if (tss_create(&_egl_TSD, (void (*)(void *)) dtor) != thrd_success) { mtx_unlock(&_egl_TSDMutex); return EGL_FALSE; } _egl_FreeTSD = dtor; _eglAddAtExitCall(_eglFiniTSD); _egl_TSDInitialized = EGL_TRUE; } mtx_unlock(&_egl_TSDMutex); } return EGL_TRUE; } static void _eglInitThreadInfo(_EGLThreadInfo *t) { memset(t, 0, sizeof(*t)); t->LastError = EGL_SUCCESS; /* default, per EGL spec */ t->CurrentAPI = EGL_OPENGL_ES_API; } /** * Allocate and init a new _EGLThreadInfo object. */ static _EGLThreadInfo * _eglCreateThreadInfo(void) { _EGLThreadInfo *t = calloc(1, sizeof(_EGLThreadInfo)); if (t) _eglInitThreadInfo(t); else t = &dummy_thread; return t; } /** * Delete/free a _EGLThreadInfo object. */ static void _eglDestroyThreadInfo(_EGLThreadInfo *t) { if (t != &dummy_thread) free(t); } /** * Make sure TSD is initialized and return current value. */ static inline _EGLThreadInfo * _eglCheckedGetTSD(void) { if (_eglInitTSD(&_eglDestroyThreadInfo) != EGL_TRUE) { _eglLog(_EGL_FATAL, "failed to initialize \"current\" system"); return NULL; } return _eglGetTSD(); } /** * Return the calling thread's thread info. * If the calling thread nevers calls this function before, or if its thread * info was destroyed, a new one is created. This function never returns NULL. * In the case allocation fails, a dummy one is returned. See also * _eglIsCurrentThreadDummy. */ _EGLThreadInfo * _eglGetCurrentThread(void) { _EGLThreadInfo *t = _eglCheckedGetTSD(); if (!t) { t = _eglCreateThreadInfo(); _eglSetTSD(t); } return t; } /** * Destroy the calling thread's thread info. */ void _eglDestroyCurrentThread(void) { _EGLThreadInfo *t = _eglCheckedGetTSD(); if (t) { _eglDestroyThreadInfo(t); _eglSetTSD(NULL); } } /** * Return true if the calling thread's thread info is dummy. * A dummy thread info is shared by all threads and should not be modified. * Functions like eglBindAPI or eglMakeCurrent should check for dummy-ness * before updating the thread info. */ EGLBoolean _eglIsCurrentThreadDummy(void) { _EGLThreadInfo *t = _eglCheckedGetTSD(); return (!t || t == &dummy_thread); } /** * Return the currently bound context of the current API, or NULL. */ _EGLContext * _eglGetCurrentContext(void) { _EGLThreadInfo *t = _eglGetCurrentThread(); return t->CurrentContext; } /** * Record EGL error code and return EGL_FALSE. */ static EGLBoolean _eglInternalError(EGLint errCode, const char *msg) { _EGLThreadInfo *t = _eglGetCurrentThread(); if (t == &dummy_thread) return EGL_FALSE; t->LastError = errCode; if (errCode != EGL_SUCCESS) { const char *s; switch (errCode) { case EGL_BAD_ACCESS: s = "EGL_BAD_ACCESS"; break; case EGL_BAD_ALLOC: s = "EGL_BAD_ALLOC"; break; case EGL_BAD_ATTRIBUTE: s = "EGL_BAD_ATTRIBUTE"; break; case EGL_BAD_CONFIG: s = "EGL_BAD_CONFIG"; break; case EGL_BAD_CONTEXT: s = "EGL_BAD_CONTEXT"; break; case EGL_BAD_CURRENT_SURFACE: s = "EGL_BAD_CURRENT_SURFACE"; break; case EGL_BAD_DISPLAY: s = "EGL_BAD_DISPLAY"; break; case EGL_BAD_MATCH: s = "EGL_BAD_MATCH"; break; case EGL_BAD_NATIVE_PIXMAP: s = "EGL_BAD_NATIVE_PIXMAP"; break; case EGL_BAD_NATIVE_WINDOW: s = "EGL_BAD_NATIVE_WINDOW"; break; case EGL_BAD_PARAMETER: s = "EGL_BAD_PARAMETER"; break; case EGL_BAD_SURFACE: s = "EGL_BAD_SURFACE"; break; case EGL_NOT_INITIALIZED: s = "EGL_NOT_INITIALIZED"; break; default: s = "other EGL error"; } _eglLog(_EGL_DEBUG, "EGL user error 0x%x (%s) in %s\n", errCode, s, msg); } return EGL_FALSE; } EGLBoolean _eglError(EGLint errCode, const char *msg) { if (errCode != EGL_SUCCESS) { EGLint type; if (errCode == EGL_BAD_ALLOC) { type = EGL_DEBUG_MSG_CRITICAL_KHR; } else { type = EGL_DEBUG_MSG_ERROR_KHR; } _eglDebugReport(errCode, msg, type, NULL); } else _eglInternalError(errCode, msg); return EGL_FALSE; } /** * Returns the label set for the current thread. */ EGLLabelKHR _eglGetThreadLabel(void) { _EGLThreadInfo *t = _eglGetCurrentThread(); return t->Label; } static void _eglDebugReportFullv(EGLenum error, const char *command, const char *funcName, EGLint type, EGLLabelKHR objectLabel, const char *message, va_list args) { EGLDEBUGPROCKHR callback = NULL; mtx_lock(_eglGlobal.Mutex); if (_eglGlobal.debugTypesEnabled & DebugBitFromType(type)) { callback = _eglGlobal.debugCallback; } mtx_unlock(_eglGlobal.Mutex); if (callback != NULL) { char *buf = NULL; if (message != NULL) { if (vasprintf(&buf, message, args) < 0) { buf = NULL; } } callback(error, command, type, _eglGetThreadLabel(), objectLabel, buf); free(buf); } if (type == EGL_DEBUG_MSG_CRITICAL_KHR || type == EGL_DEBUG_MSG_ERROR_KHR) { _eglInternalError(error, funcName); } } void _eglDebugReportFull(EGLenum error, const char *command, const char *funcName, EGLint type, EGLLabelKHR objectLabel, const char *message, ...) { va_list args; va_start(args, message); _eglDebugReportFullv(error, command, funcName, type, objectLabel, message, args); va_end(args); } void _eglDebugReport(EGLenum error, const char *funcName, EGLint type, const char *message, ...) { _EGLThreadInfo *thr = _eglGetCurrentThread(); va_list args; if (funcName == NULL) { funcName = thr->CurrentFuncName; } va_start(args, message); _eglDebugReportFullv(error, thr->CurrentFuncName, funcName, type, thr->CurrentObjectLabel, message, args); va_end(args); }