FreeCalypso > hg > fc-magnetite
view src/cs/riviera/support/exception.c @ 581:a0a45c5eb3ef
gsmcomp.c: bumping trace partition size to 220 like in gprscomp.c
This change is safe in terms of RAM usage because all of these partition
pools have already been moved from XRAM to IRAM earlier, and our IRAM
usage in VO configs is currently quite low - the one near the limit
is XRAM on C11x.
author | Mychaela Falconia <falcon@freecalypso.org> |
---|---|
date | Tue, 29 Jan 2019 03:52:49 +0000 |
parents | 945cf7f506b2 |
children |
line wrap: on
line source
/* ****************************** * * * Initialial version: Laurent Deniau, Laurent.Deniau@cern.ch * * For more information, please see the paper: * http://cern.ch/Laurent.Deniau/html/oopc/exception.html * * ----------------------------------------------------------- * * Strong rework and adaption to riviera by Christophe Favergeon * ****************************** */ // Authorization to use this source code communicated to Christophe Favergeon // by email #include <stdio.h> #include <stdlib.h> #include <assert.h> #include "support/exception.h" #ifndef _WINDOWS #include "config/swconfig.cfg" #endif /* global stack of exception context */ struct _exceptionContext_ *const _returnExceptionContext_[MAX_RVF_TASKS]= #if (!GSMLITE) {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}; #else {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}; #endif struct _exceptionContext_ *_currentExceptionContext_ [MAX_RVF_TASKS]= #if (!GSMLITE) {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL, NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}; #else {NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL}; #endif /* delete protected pointers and throw exception */ void _exceptionThrow_(int exception) { struct _protectedPtr_ *p; struct _protectedPtr_ *oldp; /* no exception context saved, exit program */ if (!_currentExceptionContext_[rvf_get_taskid()]) exit(exception); /* free pointers stored on the current exception context pointers stack */ p=_currentExceptionContext_[rvf_get_taskid()]->stack; while(p) { oldp=p->previous; p->func(p->ptr); rvf_free_buf(p); p=oldp; } _currentExceptionContext_[rvf_get_taskid()]->stack=NULL; /* jump to previous exception context */ rvf_restore_context_buffer_(_currentExceptionContext_[rvf_get_taskid()]->context, exception); } // Protect a pointer when there is a try/ctahc block active void rvf_protect_pointer(T_RVF_MB_ID mb_id,void *p,T_RVF_RELEASE_PROTECTED_POINTER func) { struct _protectedPtr_ *ptr; struct _exceptionContext_ *context; T_RVF_MB_STATUS err; if (_currentExceptionContext_[rvf_get_taskid()]) { if (p==NULL) throw(E_not_enough_memory); context=_currentExceptionContext_[rvf_get_taskid()]; err=rvf_get_buf(mb_id,sizeof(struct _protectedPtr_),(void*)&ptr); if (err==RVF_GREEN) { ptr->next=NULL; ptr->previous=NULL; ptr->ptr=p; ptr->func=func; if (context->stack==NULL) { context->stack=ptr; } else { ptr->previous=context->stack; context->stack->next=ptr; context->stack=ptr; } } else { if (p!=NULL) rvf_free_buf(p); throw(E_not_enough_memory); } } } void rvf_forget_protected_ptr() { struct _protectedPtr_ *p; struct _protectedPtr_ *oldp; p=_currentExceptionContext_[rvf_get_taskid()]->stack; while(p) { oldp=p->previous; rvf_free_buf(p); p=oldp; } _currentExceptionContext_[rvf_get_taskid()]->stack=NULL; }