flight/libraries/PyMite/vm/thread.c

   1 /*
   2 # This file is Copyright 2007, 2009, 2010 Dean Hall.
   3 #
   4 # This file is part of the PyMite VM.
   5 # The PyMite VM is free software: you can redistribute it and/or modify
   6 # it under the terms of the GNU GENERAL PUBLIC LICENSE Version 2.
   7 #
   8 # The PyMite VM is distributed in the hope that it will be useful,
   9 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  10 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  11 # A copy of the GNU GENERAL PUBLIC LICENSE Version 2
  12 # is seen in the file COPYING in this directory.
  13 */
  14
  15
  16 #undef __FILE_ID__
  17 #define __FILE_ID__ 0x16
  18
  19
  20 /**
  21  * \file
  22  * \brief VM Thread
  23  *
  24  * Encapsulating a frame pointer, a root code object and thread state.
  25  */
  26
  27
  28 #include "pm.h"
  29
  30
  31 PmReturn_t
  32 thread_new(pPmObj_t pframe, pPmObj_t *r_pobj)
  33 {
  34     PmReturn_t retval = PM_RET_OK;
  35     pPmThread_t pthread = C_NULL;
  36
  37     C_ASSERT(pframe != C_NULL);
  38
  39     /* If it's not a frame, raise TypeError */
  40     if (OBJ_GET_TYPE(pframe) != OBJ_TYPE_FRM)
  41     {
  42         PM_RAISE(retval, PM_RET_EX_TYPE);
  43         return retval;
  44     }
  45
  46     /* Allocate a thread */
  47     retval = heap_getChunk(sizeof(PmThread_t), (uint8_t **)r_pobj);
  48     PM_RETURN_IF_ERROR(retval);
  49
  50     /* Set type, frame and initialize status */
  51     pthread = (pPmThread_t)*r_pobj;
  52     OBJ_SET_TYPE(pthread, OBJ_TYPE_THR);
  53     pthread->pframe = (pPmFrame_t)pframe;
  54     pthread->interpctrl = INTERP_CTRL_CONT;
  55
  56     return retval;
  57 }