| /************************************************************************** |
| * |
| * Copyright 2009-2010 Chia-I Wu <olvaffe@gmail.com> |
| * 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 <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| #include <stdarg.h> |
| #include "c99_compat.h" |
| #include "c11/threads.h" |
| |
| #include "egllog.h" |
| #include "eglcurrent.h" |
| #include "eglglobals.h" |
| |
| /* a fallback thread info to guarantee that every thread always has one */ |
| static _EGLThreadInfo dummy_thread; |
| 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) |
| { |
| 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) |
| t = &dummy_thread; |
| |
| _eglInitThreadInfo(t); |
| 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, NULL, type, msg); |
| } 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); |
| } |