Subversion Repositories openrisc

/*

 **************************************************************************

 *

 * Component =

 *

 * Synopsis  =   rdbgexcep.c

 *

 * $Id: excep.c,v 1.2 2001-09-27 12:02:01 chris Exp $

 *

 **************************************************************************

 */

#include <rtems.h>

#include <rtems/error.h>

#include <assert.h>

#include <errno.h>

#include <rdbg/rdbg.h>

#include <rdbg/servrpc.h>

unsigned int NbExceptCtx;

volatile unsigned int NbSerializedCtx;

Exception_context *FirstCtx = NULL;

Exception_context *LastCtx = NULL;

CPU_Exception_frame SavedContext;

/********* Save an exception context at the end of a list *****/

int PushExceptCtx ( Objects_Id Id, Objects_Id semId, CPU_Exception_frame *ctx ) {

  Exception_context *SaveCtx;

  SaveCtx = (Exception_context *)malloc(sizeof(Exception_context));

  if (SaveCtx == NULL)

    rtems_panic("Can't allocate memory to save Exception context");

  SaveCtx->id = Id;

  SaveCtx->ctx = ctx;

  SaveCtx->semaphoreId = semId;

  SaveCtx->previous = NULL;

  SaveCtx->next = NULL;

  if (FirstCtx == NULL){  /* initialization */

    FirstCtx = SaveCtx;

    LastCtx  = SaveCtx;

    NbExceptCtx = 1;

  }

  else {

    NbExceptCtx ++;

    LastCtx->next = SaveCtx;

    SaveCtx->previous = LastCtx;

    LastCtx = SaveCtx;

  }

  return 0;

}

/********* Save an temporary exception context in a ******/

/********* global variable                          ******/

int PushSavedExceptCtx ( Objects_Id Id, CPU_Exception_frame *ctx ) {

  memcpy (&(SavedContext), ctx, sizeof(CPU_Exception_frame));

  return 0;

}

/****** Remove the context of the specified Id thread *********/

/****** If Id = -1, then return the first context     *********/

int PopExceptCtx ( Objects_Id Id ) {

  Exception_context *ExtractCtx;

  if (FirstCtx == NULL) return -1;

  if  (Id == -1) {

    ExtractCtx = LastCtx;

    LastCtx = LastCtx->previous;

    free(ExtractCtx);

    NbExceptCtx --;

    return 0;

  }

  ExtractCtx = LastCtx;

  while (ExtractCtx->id != Id && ExtractCtx != NULL) {

    ExtractCtx = ExtractCtx->previous;

  }

  if (ExtractCtx == NULL)

    return -1;

  if ( ExtractCtx->previous != NULL)

    (ExtractCtx->previous)->next = ExtractCtx->next;

  if ( ExtractCtx->next != NULL)

    (ExtractCtx->next)->previous = ExtractCtx->previous;

  if (ExtractCtx == FirstCtx)

    FirstCtx = FirstCtx->next;

  else

  if (ExtractCtx == LastCtx)

    LastCtx = LastCtx->previous;

  free(ExtractCtx);

  NbExceptCtx --;

  return 0;

}

/****** Return the context of the specified Id thread *********/

/****** If Id = -1, then return the first context     *********/

Exception_context *GetExceptCtx ( Objects_Id Id ) {

  Exception_context *ExtractCtx;

  if (FirstCtx == NULL) return NULL;

  if  (Id == -1) {

    return LastCtx;

  }

  ExtractCtx = LastCtx;

  while (ExtractCtx->id != Id && ExtractCtx != NULL) {

    ExtractCtx = ExtractCtx->previous;

  }

  if (ExtractCtx == NULL)

    return NULL;

  return ExtractCtx;

}