a71c83a1d1
Ultimately all static strings should be qstr. This entry in the type structure is only used for printing error messages (to tell the type of the bad argument), and printing objects that don't supply a .print method.
38 lines
765 B
C
38 lines
765 B
C
#include <stdlib.h>
|
|
#include <stdint.h>
|
|
#include <assert.h>
|
|
|
|
#include "nlr.h"
|
|
#include "misc.h"
|
|
#include "mpconfig.h"
|
|
#include "qstr.h"
|
|
#include "obj.h"
|
|
#include "runtime.h"
|
|
|
|
typedef struct _mp_obj_cell_t {
|
|
mp_obj_base_t base;
|
|
mp_obj_t obj;
|
|
} mp_obj_cell_t;
|
|
|
|
mp_obj_t mp_obj_cell_get(mp_obj_t self_in) {
|
|
mp_obj_cell_t *self = self_in;
|
|
return self->obj;
|
|
}
|
|
|
|
void mp_obj_cell_set(mp_obj_t self_in, mp_obj_t obj) {
|
|
mp_obj_cell_t *self = self_in;
|
|
self->obj = obj;
|
|
}
|
|
|
|
const mp_obj_type_t cell_type = {
|
|
{ &mp_const_type },
|
|
.name = MP_QSTR_, // should never need to print cell type
|
|
};
|
|
|
|
mp_obj_t mp_obj_new_cell(mp_obj_t obj) {
|
|
mp_obj_cell_t *o = m_new_obj(mp_obj_cell_t);
|
|
o->base.type = &cell_type;
|
|
o->obj = obj;
|
|
return o;
|
|
}
|