mirror of
https://bitbucket.org/librepilot/librepilot.git
synced 2024-12-05 13:24:11 +01:00
58 lines
1.4 KiB
C
58 lines
1.4 KiB
C
|
/*
|
||
|
# This file is Copyright 2007, 2009, 2010 Dean Hall.
|
||
|
#
|
||
|
# This file is part of the PyMite VM.
|
||
|
# The PyMite VM is free software: you can redistribute it and/or modify
|
||
|
# it under the terms of the GNU GENERAL PUBLIC LICENSE Version 2.
|
||
|
#
|
||
|
# The PyMite VM is distributed in the hope that it will be useful,
|
||
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
||
|
# A copy of the GNU GENERAL PUBLIC LICENSE Version 2
|
||
|
# is seen in the file COPYING in this directory.
|
||
|
*/
|
||
|
|
||
|
|
||
|
#undef __FILE_ID__
|
||
|
#define __FILE_ID__ 0x16
|
||
|
|
||
|
|
||
|
/**
|
||
|
* \file
|
||
|
* \brief VM Thread
|
||
|
*
|
||
|
* Encapsulating a frame pointer, a root code object and thread state.
|
||
|
*/
|
||
|
|
||
|
|
||
|
#include "pm.h"
|
||
|
|
||
|
|
||
|
PmReturn_t
|
||
|
thread_new(pPmObj_t pframe, pPmObj_t *r_pobj)
|
||
|
{
|
||
|
PmReturn_t retval = PM_RET_OK;
|
||
|
pPmThread_t pthread = C_NULL;
|
||
|
|
||
|
C_ASSERT(pframe != C_NULL);
|
||
|
|
||
|
/* If it's not a frame, raise TypeError */
|
||
|
if (OBJ_GET_TYPE(pframe) != OBJ_TYPE_FRM)
|
||
|
{
|
||
|
PM_RAISE(retval, PM_RET_EX_TYPE);
|
||
|
return retval;
|
||
|
}
|
||
|
|
||
|
/* Allocate a thread */
|
||
|
retval = heap_getChunk(sizeof(PmThread_t), (uint8_t **)r_pobj);
|
||
|
PM_RETURN_IF_ERROR(retval);
|
||
|
|
||
|
/* Set type, frame and initialize status */
|
||
|
pthread = (pPmThread_t)*r_pobj;
|
||
|
OBJ_SET_TYPE(pthread, OBJ_TYPE_THR);
|
||
|
pthread->pframe = (pPmFrame_t)pframe;
|
||
|
pthread->interpctrl = INTERP_CTRL_CONT;
|
||
|
|
||
|
return retval;
|
||
|
}
|