2014-08-28 18:37:02 -04:00
|
|
|
/*
|
2017-06-30 03:22:17 -04:00
|
|
|
* This file is part of the MicroPython project, http://micropython.org/
|
2014-08-28 18:37:02 -04:00
|
|
|
*
|
|
|
|
* The MIT License (MIT)
|
|
|
|
*
|
|
|
|
* Copyright (c) 2014 Damien P. George
|
|
|
|
*
|
|
|
|
* Permission is hereby granted, free of charge, to any person obtaining a copy
|
|
|
|
* of this software and associated documentation files (the "Software"), to deal
|
|
|
|
* in the Software without restriction, including without limitation the rights
|
|
|
|
* to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
|
|
|
|
* copies of the Software, and to permit persons to whom the Software is
|
|
|
|
* furnished to do so, subject to the following conditions:
|
|
|
|
*
|
|
|
|
* The above copyright notice and this permission notice shall be included in
|
|
|
|
* all copies or substantial portions of the Software.
|
|
|
|
*
|
|
|
|
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|
|
|
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|
|
|
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|
|
|
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
|
|
|
|
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
|
|
|
|
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
|
|
|
|
* THE SOFTWARE.
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <string.h>
|
|
|
|
#include <assert.h>
|
|
|
|
|
2015-01-01 15:27:54 -05:00
|
|
|
#include "py/runtime.h"
|
2017-10-11 03:54:34 -04:00
|
|
|
#include "py/smallint.h"
|
2015-01-01 15:27:54 -05:00
|
|
|
#include "py/emitglue.h"
|
2015-04-06 17:38:53 -04:00
|
|
|
#include "py/bc.h"
|
2014-08-28 18:37:02 -04:00
|
|
|
|
2017-07-24 12:55:14 -04:00
|
|
|
#if MICROPY_DEBUG_VERBOSE // print debugging info
|
2014-08-28 18:37:02 -04:00
|
|
|
#define DEBUG_printf DEBUG_printf
|
|
|
|
#else // don't print debugging info
|
|
|
|
#define DEBUG_printf(...) (void)0
|
|
|
|
#endif
|
|
|
|
|
2016-01-15 10:20:43 -05:00
|
|
|
#if MICROPY_EMIT_NATIVE
|
|
|
|
|
2017-06-30 03:22:17 -04:00
|
|
|
// convert a MicroPython object to a valid native value based on type
|
2014-08-28 18:37:02 -04:00
|
|
|
mp_uint_t mp_convert_obj_to_native(mp_obj_t obj, mp_uint_t type) {
|
|
|
|
DEBUG_printf("mp_convert_obj_to_native(%p, " UINT_FMT ")\n", obj, type);
|
2016-02-02 18:16:05 -05:00
|
|
|
switch (type & 0xf) {
|
2014-08-28 18:37:02 -04:00
|
|
|
case MP_NATIVE_TYPE_OBJ: return (mp_uint_t)obj;
|
|
|
|
case MP_NATIVE_TYPE_BOOL:
|
2016-02-02 18:16:05 -05:00
|
|
|
case MP_NATIVE_TYPE_INT:
|
|
|
|
case MP_NATIVE_TYPE_UINT: return mp_obj_get_int_truncated(obj);
|
2016-02-09 08:29:20 -05:00
|
|
|
default: { // cast obj to a pointer
|
2014-09-29 17:10:41 -04:00
|
|
|
mp_buffer_info_t bufinfo;
|
2016-02-09 08:29:20 -05:00
|
|
|
if (mp_get_buffer(obj, &bufinfo, MP_BUFFER_RW)) {
|
|
|
|
return (mp_uint_t)bufinfo.buf;
|
|
|
|
} else {
|
|
|
|
// assume obj is an integer that represents an address
|
|
|
|
return mp_obj_get_int_truncated(obj);
|
|
|
|
}
|
2014-09-29 17:10:41 -04:00
|
|
|
}
|
2014-08-28 18:37:02 -04:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2016-01-15 10:20:43 -05:00
|
|
|
#endif
|
|
|
|
|
2016-12-08 21:17:49 -05:00
|
|
|
#if MICROPY_EMIT_NATIVE || MICROPY_EMIT_INLINE_ASM
|
2016-01-15 10:20:43 -05:00
|
|
|
|
2017-06-30 03:22:17 -04:00
|
|
|
// convert a native value to a MicroPython object based on type
|
2014-08-28 18:37:02 -04:00
|
|
|
mp_obj_t mp_convert_native_to_obj(mp_uint_t val, mp_uint_t type) {
|
|
|
|
DEBUG_printf("mp_convert_native_to_obj(" UINT_FMT ", " UINT_FMT ")\n", val, type);
|
2016-02-02 18:16:05 -05:00
|
|
|
switch (type & 0xf) {
|
2014-08-28 18:37:02 -04:00
|
|
|
case MP_NATIVE_TYPE_OBJ: return (mp_obj_t)val;
|
2015-10-11 05:09:43 -04:00
|
|
|
case MP_NATIVE_TYPE_BOOL: return mp_obj_new_bool(val);
|
2014-08-28 18:37:02 -04:00
|
|
|
case MP_NATIVE_TYPE_INT: return mp_obj_new_int(val);
|
|
|
|
case MP_NATIVE_TYPE_UINT: return mp_obj_new_int_from_uint(val);
|
2016-02-02 18:16:05 -05:00
|
|
|
default: // a pointer
|
|
|
|
// we return just the value of the pointer as an integer
|
|
|
|
return mp_obj_new_int_from_uint(val);
|
2014-08-28 18:37:02 -04:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2016-01-15 10:20:43 -05:00
|
|
|
#endif
|
|
|
|
|
|
|
|
#if MICROPY_EMIT_NATIVE
|
|
|
|
|
2014-08-28 18:37:02 -04:00
|
|
|
// wrapper that accepts n_args and n_kw in one argument
|
|
|
|
// (native emitter can only pass at most 3 arguments to a function)
|
2017-02-15 23:32:34 -05:00
|
|
|
mp_obj_t mp_native_call_function_n_kw(mp_obj_t fun_in, size_t n_args_kw, const mp_obj_t *args) {
|
2014-08-28 18:37:02 -04:00
|
|
|
return mp_call_function_n_kw(fun_in, n_args_kw & 0xff, (n_args_kw >> 8) & 0xff, args);
|
|
|
|
}
|
|
|
|
|
|
|
|
// wrapper that makes raise obj and raises it
|
2015-01-21 12:00:01 -05:00
|
|
|
// END_FINALLY opcode requires that we don't raise if o==None
|
|
|
|
void mp_native_raise(mp_obj_t o) {
|
|
|
|
if (o != mp_const_none) {
|
|
|
|
nlr_raise(mp_make_raise_obj(o));
|
|
|
|
}
|
2014-08-28 18:37:02 -04:00
|
|
|
}
|
|
|
|
|
2017-01-16 23:27:37 -05:00
|
|
|
// wrapper that handles iterator buffer
|
|
|
|
STATIC mp_obj_t mp_native_getiter(mp_obj_t obj, mp_obj_iter_buf_t *iter) {
|
|
|
|
if (iter == NULL) {
|
|
|
|
return mp_getiter(obj, NULL);
|
|
|
|
} else {
|
|
|
|
obj = mp_getiter(obj, iter);
|
|
|
|
if (obj != MP_OBJ_FROM_PTR(iter)) {
|
|
|
|
// Iterator didn't use the stack so indicate that with MP_OBJ_NULL.
|
|
|
|
iter->base.type = MP_OBJ_NULL;
|
|
|
|
iter->buf[0] = obj;
|
|
|
|
}
|
|
|
|
return NULL;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// wrapper that handles iterator buffer
|
|
|
|
STATIC mp_obj_t mp_native_iternext(mp_obj_iter_buf_t *iter) {
|
|
|
|
mp_obj_t obj;
|
|
|
|
if (iter->base.type == MP_OBJ_NULL) {
|
|
|
|
obj = iter->buf[0];
|
|
|
|
} else {
|
|
|
|
obj = MP_OBJ_FROM_PTR(iter);
|
|
|
|
}
|
|
|
|
return mp_iternext(obj);
|
|
|
|
}
|
|
|
|
|
2014-08-28 18:37:02 -04:00
|
|
|
// these must correspond to the respective enum in runtime0.h
|
|
|
|
void *const mp_fun_table[MP_F_NUMBER_OF] = {
|
|
|
|
mp_convert_obj_to_native,
|
|
|
|
mp_convert_native_to_obj,
|
|
|
|
mp_load_name,
|
|
|
|
mp_load_global,
|
|
|
|
mp_load_build_class,
|
|
|
|
mp_load_attr,
|
|
|
|
mp_load_method,
|
2017-04-18 19:45:59 -04:00
|
|
|
mp_load_super_method,
|
2014-08-28 18:37:02 -04:00
|
|
|
mp_store_name,
|
|
|
|
mp_store_global,
|
|
|
|
mp_store_attr,
|
|
|
|
mp_obj_subscr,
|
|
|
|
mp_obj_is_true,
|
|
|
|
mp_unary_op,
|
|
|
|
mp_binary_op,
|
|
|
|
mp_obj_new_tuple,
|
|
|
|
mp_obj_new_list,
|
|
|
|
mp_obj_list_append,
|
|
|
|
mp_obj_new_dict,
|
|
|
|
mp_obj_dict_store,
|
|
|
|
#if MICROPY_PY_BUILTINS_SET
|
|
|
|
mp_obj_set_store,
|
2018-05-22 08:18:42 -04:00
|
|
|
mp_obj_new_set,
|
2014-08-28 18:37:02 -04:00
|
|
|
#endif
|
|
|
|
mp_make_function_from_raw_code,
|
|
|
|
mp_native_call_function_n_kw,
|
|
|
|
mp_call_method_n_kw,
|
2015-04-06 17:48:21 -04:00
|
|
|
mp_call_method_n_kw_var,
|
2017-01-16 23:27:37 -05:00
|
|
|
mp_native_getiter,
|
|
|
|
mp_native_iternext,
|
2014-08-28 18:37:02 -04:00
|
|
|
nlr_push,
|
|
|
|
nlr_pop,
|
|
|
|
mp_native_raise,
|
|
|
|
mp_import_name,
|
|
|
|
mp_import_from,
|
|
|
|
mp_import_all,
|
|
|
|
#if MICROPY_PY_BUILTINS_SLICE
|
|
|
|
mp_obj_new_slice,
|
|
|
|
#endif
|
|
|
|
mp_unpack_sequence,
|
|
|
|
mp_unpack_ex,
|
2014-09-06 13:38:20 -04:00
|
|
|
mp_delete_name,
|
|
|
|
mp_delete_global,
|
2015-01-15 09:41:41 -05:00
|
|
|
mp_obj_new_cell,
|
|
|
|
mp_make_closure_from_raw_code,
|
2015-04-06 17:38:53 -04:00
|
|
|
mp_setup_code_state,
|
2017-10-11 03:54:34 -04:00
|
|
|
mp_small_int_floor_divide,
|
|
|
|
mp_small_int_modulo,
|
2014-08-28 18:37:02 -04:00
|
|
|
};
|
|
|
|
|
|
|
|
/*
|
|
|
|
void mp_f_vector(mp_fun_kind_t fun_kind) {
|
|
|
|
(mp_f_table[fun_kind])();
|
|
|
|
}
|
|
|
|
*/
|
|
|
|
|
|
|
|
#endif // MICROPY_EMIT_NATIVE
|