vm.c 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702
  1. #include "pocketpy/interpreter/vm.h"
  2. #include "pocketpy/common/memorypool.h"
  3. #include "pocketpy/common/sstream.h"
  4. #include "pocketpy/common/utils.h"
  5. #include "pocketpy/interpreter/generator.h"
  6. #include "pocketpy/interpreter/modules.h"
  7. #include "pocketpy/interpreter/typeinfo.h"
  8. #include "pocketpy/objects/base.h"
  9. #include "pocketpy/common/_generated.h"
  10. #include "pocketpy/pocketpy.h"
  11. #include <stdbool.h>
  12. static char* pk_default_importfile(const char* path) {
  13. #if PK_ENABLE_OS
  14. FILE* f = fopen(path, "rb");
  15. if(f == NULL) return NULL;
  16. fseek(f, 0, SEEK_END);
  17. long size = ftell(f);
  18. fseek(f, 0, SEEK_SET);
  19. char* buffer = malloc(size + 1);
  20. size = fread(buffer, 1, size, f);
  21. buffer[size] = 0;
  22. fclose(f);
  23. return buffer;
  24. #else
  25. return NULL;
  26. #endif
  27. }
  28. static void pk_default_print(const char* data) { printf("%s", data); }
  29. static void py_TypeInfo__ctor(py_TypeInfo* self,
  30. py_Name name,
  31. py_Type index,
  32. py_Type base,
  33. py_TValue module) {
  34. memset(self, 0, sizeof(py_TypeInfo));
  35. self->name = name;
  36. self->base = base;
  37. // create type object with __dict__
  38. ManagedHeap* heap = &pk_current_vm->heap;
  39. PyObject* typeobj = ManagedHeap__new(heap, tp_type, -1, sizeof(py_Type));
  40. *(py_Type*)PyObject__userdata(typeobj) = index;
  41. self->self = (py_TValue){
  42. .type = typeobj->type,
  43. .is_ptr = true,
  44. ._obj = typeobj,
  45. };
  46. self->module = module;
  47. self->annotations = *py_NIL;
  48. }
  49. void VM__ctor(VM* self) {
  50. self->top_frame = NULL;
  51. ModuleDict__ctor(&self->modules, NULL, *py_NIL);
  52. TypeList__ctor(&self->types);
  53. self->builtins = *py_NIL;
  54. self->main = *py_NIL;
  55. self->callbacks.importfile = pk_default_importfile;
  56. self->callbacks.print = pk_default_print;
  57. self->last_retval = *py_NIL;
  58. self->curr_exception = *py_NIL;
  59. self->is_curr_exc_handled = false;
  60. self->__curr_class = NULL;
  61. self->__curr_function = NULL;
  62. ManagedHeap__ctor(&self->heap, self);
  63. ValueStack__ctor(&self->stack);
  64. /* Init Builtin Types */
  65. // 0: unused
  66. void* placeholder = TypeList__emplace(&self->types);
  67. memset(placeholder, 0, sizeof(py_TypeInfo));
  68. #define validate(t, expr) \
  69. if(t != (expr)) abort()
  70. validate(tp_object, pk_newtype("object", 0, NULL, NULL, true, false));
  71. validate(tp_type, pk_newtype("type", 1, NULL, NULL, false, true));
  72. pk_object__register();
  73. validate(tp_int, pk_newtype("int", tp_object, NULL, NULL, false, true));
  74. validate(tp_float, pk_newtype("float", tp_object, NULL, NULL, false, true));
  75. validate(tp_bool, pk_newtype("bool", tp_object, NULL, NULL, false, true));
  76. pk_number__register();
  77. validate(tp_str, pk_str__register());
  78. validate(tp_str_iterator, pk_str_iterator__register());
  79. validate(tp_list, pk_list__register());
  80. validate(tp_tuple, pk_tuple__register());
  81. validate(tp_array_iterator, pk_array_iterator__register());
  82. validate(tp_slice, pk_slice__register());
  83. validate(tp_range, pk_range__register());
  84. validate(tp_range_iterator, pk_range_iterator__register());
  85. validate(tp_module, pk_newtype("module", tp_object, NULL, NULL, false, true));
  86. validate(tp_function, pk_function__register());
  87. validate(tp_nativefunc, pk_nativefunc__register());
  88. validate(tp_boundmethod, pk_boundmethod__register());
  89. validate(tp_super, pk_super__register());
  90. validate(tp_BaseException, pk_BaseException__register());
  91. validate(tp_Exception, pk_Exception__register());
  92. validate(tp_bytes, pk_bytes__register());
  93. validate(tp_namedict, pk_namedict__register());
  94. validate(tp_locals, pk_locals__register());
  95. validate(tp_code, pk_code__register());
  96. validate(tp_dict, pk_dict__register());
  97. validate(tp_dict_items, pk_dict_items__register());
  98. validate(tp_property, pk_property__register());
  99. validate(tp_star_wrapper, pk_newtype("star_wrapper", tp_object, NULL, NULL, false, true));
  100. validate(tp_staticmethod, pk_staticmethod__register());
  101. validate(tp_classmethod, pk_classmethod__register());
  102. validate(tp_NoneType, pk_newtype("NoneType", tp_object, NULL, NULL, false, true));
  103. validate(tp_NotImplementedType,
  104. pk_newtype("NotImplementedType", tp_object, NULL, NULL, false, true));
  105. validate(tp_ellipsis, pk_newtype("ellipsis", tp_object, NULL, NULL, false, true));
  106. validate(tp_generator, pk_generator__register());
  107. self->builtins = pk_builtins__register();
  108. // inject some builtin expections
  109. #define INJECT_BUILTIN_EXC(name, TBase) \
  110. do { \
  111. py_Type type = pk_newtype(#name, TBase, &self->builtins, NULL, false, true); \
  112. py_setdict(&self->builtins, py_name(#name), py_tpobject(type)); \
  113. validate(tp_##name, type); \
  114. } while(0)
  115. INJECT_BUILTIN_EXC(SystemExit, tp_BaseException);
  116. INJECT_BUILTIN_EXC(KeyboardInterrupt, tp_BaseException);
  117. INJECT_BUILTIN_EXC(StopIteration, tp_Exception);
  118. INJECT_BUILTIN_EXC(SyntaxError, tp_Exception);
  119. INJECT_BUILTIN_EXC(StackOverflowError, tp_Exception);
  120. INJECT_BUILTIN_EXC(IOError, tp_Exception);
  121. INJECT_BUILTIN_EXC(OSError, tp_Exception);
  122. INJECT_BUILTIN_EXC(NotImplementedError, tp_Exception);
  123. INJECT_BUILTIN_EXC(TypeError, tp_Exception);
  124. INJECT_BUILTIN_EXC(IndexError, tp_Exception);
  125. INJECT_BUILTIN_EXC(ValueError, tp_Exception);
  126. INJECT_BUILTIN_EXC(RuntimeError, tp_Exception);
  127. INJECT_BUILTIN_EXC(ZeroDivisionError, tp_Exception);
  128. INJECT_BUILTIN_EXC(NameError, tp_Exception);
  129. INJECT_BUILTIN_EXC(UnboundLocalError, tp_Exception);
  130. INJECT_BUILTIN_EXC(AttributeError, tp_Exception);
  131. INJECT_BUILTIN_EXC(ImportError, tp_Exception);
  132. INJECT_BUILTIN_EXC(AssertionError, tp_Exception);
  133. INJECT_BUILTIN_EXC(KeyError, tp_Exception);
  134. #undef INJECT_BUILTIN_EXC
  135. #undef validate
  136. /* Setup Public Builtin Types */
  137. py_Type public_types[] = {
  138. tp_object,
  139. tp_type,
  140. tp_int,
  141. tp_float,
  142. tp_bool,
  143. tp_str,
  144. tp_list,
  145. tp_tuple,
  146. tp_slice,
  147. tp_range,
  148. tp_bytes,
  149. tp_dict,
  150. tp_property,
  151. tp_staticmethod,
  152. tp_classmethod,
  153. tp_super,
  154. tp_BaseException,
  155. tp_Exception,
  156. };
  157. for(int i = 0; i < c11__count_array(public_types); i++) {
  158. py_TypeInfo* ti = pk__type_info(public_types[i]);
  159. py_setdict(&self->builtins, ti->name, &ti->self);
  160. }
  161. py_newnotimplemented(py_emplacedict(&self->builtins, py_name("NotImplemented")));
  162. // add modules
  163. pk__add_module_pkpy();
  164. pk__add_module_os();
  165. pk__add_module_sys();
  166. pk__add_module_math();
  167. pk__add_module_dis();
  168. pk__add_module_random();
  169. pk__add_module_json();
  170. pk__add_module_gc();
  171. pk__add_module_time();
  172. pk__add_module_easing();
  173. pk__add_module_traceback();
  174. pk__add_module_enum();
  175. // add python builtins
  176. do {
  177. bool ok;
  178. ok = py_exec(kPythonLibs_builtins, "<builtins>", EXEC_MODE, &self->builtins);
  179. if(!ok) goto __ABORT;
  180. break;
  181. __ABORT:
  182. py_printexc();
  183. c11__abort("failed to load python builtins!");
  184. } while(0);
  185. self->main = *py_newmodule("__main__");
  186. }
  187. void VM__dtor(VM* self) {
  188. // destroy all objects
  189. ManagedHeap__dtor(&self->heap);
  190. // clear frames
  191. while(self->top_frame)
  192. VM__pop_frame(self);
  193. ModuleDict__dtor(&self->modules);
  194. TypeList__dtor(&self->types);
  195. ValueStack__clear(&self->stack);
  196. }
  197. void VM__push_frame(VM* self, Frame* frame) {
  198. frame->f_back = self->top_frame;
  199. self->top_frame = frame;
  200. }
  201. void VM__pop_frame(VM* self) {
  202. assert(self->top_frame);
  203. Frame* frame = self->top_frame;
  204. // reset stack pointer
  205. self->stack.sp = frame->p0;
  206. // pop frame and delete
  207. self->top_frame = frame->f_back;
  208. Frame__delete(frame);
  209. }
  210. static void _clip_int(int* value, int min, int max) {
  211. if(*value < min) *value = min;
  212. if(*value > max) *value = max;
  213. }
  214. bool pk__parse_int_slice(py_Ref slice, int length, int* start, int* stop, int* step) {
  215. py_Ref s_start = py_getslot(slice, 0);
  216. py_Ref s_stop = py_getslot(slice, 1);
  217. py_Ref s_step = py_getslot(slice, 2);
  218. if(py_isnone(s_step))
  219. *step = 1;
  220. else {
  221. if(!py_checkint(s_step)) return false;
  222. *step = py_toint(s_step);
  223. }
  224. if(*step == 0) return ValueError("slice step cannot be zero");
  225. if(*step > 0) {
  226. if(py_isnone(s_start))
  227. *start = 0;
  228. else {
  229. if(!py_checkint(s_start)) return false;
  230. *start = py_toint(s_start);
  231. if(*start < 0) *start += length;
  232. _clip_int(start, 0, length);
  233. }
  234. if(py_isnone(s_stop))
  235. *stop = length;
  236. else {
  237. if(!py_checkint(s_stop)) return false;
  238. *stop = py_toint(s_stop);
  239. if(*stop < 0) *stop += length;
  240. _clip_int(stop, 0, length);
  241. }
  242. } else {
  243. if(py_isnone(s_start))
  244. *start = length - 1;
  245. else {
  246. if(!py_checkint(s_start)) return false;
  247. *start = py_toint(s_start);
  248. if(*start < 0) *start += length;
  249. _clip_int(start, -1, length - 1);
  250. }
  251. if(py_isnone(s_stop))
  252. *stop = -1;
  253. else {
  254. if(!py_checkint(s_stop)) return false;
  255. *stop = py_toint(s_stop);
  256. if(*stop < 0) *stop += length;
  257. _clip_int(stop, -1, length - 1);
  258. }
  259. }
  260. return true;
  261. }
  262. bool pk__normalize_index(int* index, int length) {
  263. if(*index < 0) *index += length;
  264. if(*index < 0 || *index >= length) { return IndexError("%d not in [0, %d)", *index, length); }
  265. return true;
  266. }
  267. py_Type pk_newtype(const char* name,
  268. py_Type base,
  269. const py_GlobalRef module,
  270. void (*dtor)(void*),
  271. bool is_python,
  272. bool is_sealed) {
  273. py_Type index = pk_current_vm->types.length;
  274. py_TypeInfo* ti = TypeList__emplace(&pk_current_vm->types);
  275. py_TypeInfo* base_ti = base ? pk__type_info(base) : NULL;
  276. if(base_ti && base_ti->is_sealed) {
  277. c11__abort("type '%s' is not an acceptable base type", py_name2str(base_ti->name));
  278. }
  279. py_TypeInfo__ctor(ti, py_name(name), index, base, module ? *module : *py_NIL);
  280. if(!dtor && base) dtor = base_ti->dtor;
  281. ti->dtor = dtor;
  282. ti->is_python = is_python;
  283. ti->is_sealed = is_sealed;
  284. return index;
  285. }
  286. py_Type py_newtype(const char* name, py_Type base, const py_GlobalRef module, void (*dtor)(void*)) {
  287. py_Type type = pk_newtype(name, base, module, dtor, false, false);
  288. if(module) py_setdict(module, py_name(name), py_tpobject(type));
  289. return type;
  290. }
  291. static bool
  292. prepare_py_call(py_TValue* buffer, py_Ref argv, py_Ref p1, int kwargc, const FuncDecl* decl) {
  293. const CodeObject* co = &decl->code;
  294. int decl_argc = decl->args.length;
  295. if(p1 - argv < decl_argc) {
  296. return TypeError("%s() takes %d positional arguments but %d were given",
  297. co->name->data,
  298. decl_argc,
  299. (int)(p1 - argv));
  300. }
  301. py_TValue* t = argv;
  302. // prepare args
  303. memset(buffer, 0, co->nlocals * sizeof(py_TValue));
  304. c11__foreach(int, &decl->args, index) buffer[*index] = *t++;
  305. // prepare kwdefaults
  306. c11__foreach(FuncDeclKwArg, &decl->kwargs, kv) buffer[kv->index] = kv->value;
  307. // handle *args
  308. if(decl->starred_arg != -1) {
  309. int exceed_argc = p1 - t;
  310. py_Ref vargs = &buffer[decl->starred_arg];
  311. py_newtuple(vargs, exceed_argc);
  312. for(int j = 0; j < exceed_argc; j++) {
  313. py_tuple_setitem(vargs, j, t++);
  314. }
  315. } else {
  316. // kwdefaults override
  317. // def f(a, b, c=None)
  318. // f(1, 2, 3) -> c=3
  319. c11__foreach(FuncDeclKwArg, &decl->kwargs, kv) {
  320. if(t >= p1) break;
  321. buffer[kv->index] = *t++;
  322. }
  323. // not able to consume all args
  324. if(t < p1) return TypeError("too many arguments (%s)", co->name->data);
  325. }
  326. if(decl->starred_kwarg != -1) py_newdict(&buffer[decl->starred_kwarg]);
  327. for(int j = 0; j < kwargc; j++) {
  328. py_Name key = py_toint(&p1[2 * j]);
  329. int index = c11_smallmap_n2i__get(&decl->kw_to_index, key, -1);
  330. // if key is an explicit key, set as local variable
  331. if(index >= 0) {
  332. buffer[index] = p1[2 * j + 1];
  333. } else {
  334. // otherwise, set as **kwargs if possible
  335. if(decl->starred_kwarg == -1) {
  336. return TypeError("'%n' is an invalid keyword argument for %s()",
  337. key,
  338. co->name->data);
  339. } else {
  340. // add to **kwargs
  341. bool ok = py_dict_setitem_by_str(&buffer[decl->starred_kwarg],
  342. py_name2str(key),
  343. &p1[2 * j + 1]);
  344. if(!ok) return false;
  345. }
  346. }
  347. }
  348. return true;
  349. }
  350. FrameResult VM__vectorcall(VM* self, uint16_t argc, uint16_t kwargc, bool opcall) {
  351. pk_print_stack(self, self->top_frame, (Bytecode){0});
  352. py_Ref p1 = self->stack.sp - kwargc * 2;
  353. py_Ref p0 = p1 - argc - 2;
  354. // [callable, <self>, args..., kwargs...]
  355. // ^p0 ^p1 ^_sp
  356. // handle boundmethod, do a patch
  357. if(p0->type == tp_boundmethod) {
  358. assert(py_isnil(p0 + 1)); // self must be NULL
  359. py_TValue* slots = PyObject__slots(p0->_obj);
  360. p0[0] = slots[1]; // callable
  361. p0[1] = slots[0]; // self
  362. // [unbound, self, args..., kwargs...]
  363. }
  364. py_Ref argv = p0 + 1 + (int)py_isnil(p0 + 1);
  365. if(p0->type == tp_function) {
  366. // check stack overflow
  367. if(self->stack.sp > self->stack.end) {
  368. py_exception(tp_StackOverflowError, "");
  369. return RES_ERROR;
  370. }
  371. Function* fn = py_touserdata(p0);
  372. const CodeObject* co = &fn->decl->code;
  373. switch(fn->decl->type) {
  374. case FuncType_NORMAL: {
  375. bool ok = prepare_py_call(self->__vectorcall_buffer, argv, p1, kwargc, fn->decl);
  376. if(!ok) return RES_ERROR;
  377. // copy buffer back to stack
  378. self->stack.sp = argv + co->nlocals;
  379. memcpy(argv, self->__vectorcall_buffer, co->nlocals * sizeof(py_TValue));
  380. // submit the call
  381. if(!fn->cfunc) {
  382. // python function
  383. VM__push_frame(self, Frame__new(co, &fn->module, p0, argv, true));
  384. return opcall ? RES_CALL : VM__run_top_frame(self);
  385. } else {
  386. // decl-based binding
  387. self->__curr_function = p0;
  388. bool ok = py_callcfunc(fn->cfunc, co->nlocals, argv);
  389. self->stack.sp = p0;
  390. self->__curr_function = NULL;
  391. return ok ? RES_RETURN : RES_ERROR;
  392. }
  393. }
  394. case FuncType_SIMPLE:
  395. if(p1 - argv != fn->decl->args.length) {
  396. const char* fmt = "%s() takes %d positional arguments but %d were given";
  397. TypeError(fmt, co->name->data, fn->decl->args.length, (int)(p1 - argv));
  398. return RES_ERROR;
  399. }
  400. if(kwargc) {
  401. TypeError("%s() takes no keyword arguments", co->name->data);
  402. return RES_ERROR;
  403. }
  404. // [callable, <self>, args..., local_vars...]
  405. // ^p0 ^p1 ^_sp
  406. self->stack.sp = argv + co->nlocals;
  407. // initialize local variables to py_NIL
  408. memset(p1, 0, (char*)self->stack.sp - (char*)p1);
  409. // submit the call
  410. VM__push_frame(self, Frame__new(co, &fn->module, p0, argv, true));
  411. return opcall ? RES_CALL : VM__run_top_frame(self);
  412. case FuncType_GENERATOR: {
  413. bool ok = prepare_py_call(self->__vectorcall_buffer, argv, p1, kwargc, fn->decl);
  414. if(!ok) return RES_ERROR;
  415. Frame* frame = Frame__new(co, &fn->module, p0, argv, false);
  416. pk_newgenerator(py_retval(), frame, self->__vectorcall_buffer, co->nlocals);
  417. self->stack.sp = p0;
  418. return RES_RETURN;
  419. }
  420. default: c11__unreachedable();
  421. };
  422. c11__unreachedable();
  423. /*****************_py_call*****************/
  424. }
  425. if(p0->type == tp_nativefunc) {
  426. if(kwargc && p0->_cfunc != pk__object_new) {
  427. TypeError("nativefunc does not accept keyword arguments");
  428. return RES_ERROR;
  429. }
  430. bool ok = py_callcfunc(p0->_cfunc, p1 - argv, argv);
  431. self->stack.sp = p0;
  432. return ok ? RES_RETURN : RES_ERROR;
  433. }
  434. if(p0->type == tp_type) {
  435. // [cls, NULL, args..., kwargs...]
  436. py_Ref new_f = py_tpfindmagic(py_totype(p0), __new__);
  437. assert(new_f && py_isnil(p0 + 1));
  438. // prepare a copy of args and kwargs
  439. int span = self->stack.sp - argv;
  440. *self->stack.sp++ = *new_f; // push __new__
  441. *self->stack.sp++ = *p0; // push cls
  442. memcpy(self->stack.sp, argv, span * sizeof(py_TValue));
  443. self->stack.sp += span;
  444. // [new_f, cls, args..., kwargs...]
  445. if(VM__vectorcall(self, argc, kwargc, false) == RES_ERROR) return RES_ERROR;
  446. // by recursively using vectorcall, args and kwargs are consumed
  447. // try __init__
  448. // NOTE: previously we use `get_unbound_method` but here we just use `tpfindmagic`
  449. // >> [cls, NULL, args..., kwargs...]
  450. // >> py_retval() is the new instance
  451. py_Ref init_f = py_tpfindmagic(py_totype(p0), __init__);
  452. if(init_f) {
  453. // do an inplace patch
  454. *p0 = *init_f; // __init__
  455. p0[1] = self->last_retval; // self
  456. // [__init__, self, args..., kwargs...]
  457. if(VM__vectorcall(self, argc, kwargc, false) == RES_ERROR) return RES_ERROR;
  458. *py_retval() = p0[1]; // restore the new instance
  459. }
  460. // reset the stack
  461. self->stack.sp = p0;
  462. return RES_RETURN;
  463. }
  464. // handle `__call__` overload
  465. if(pk_loadmethod(p0, __call__)) {
  466. // [__call__, self, args..., kwargs...]
  467. return VM__vectorcall(self, argc, kwargc, opcall);
  468. }
  469. TypeError("'%t' object is not callable", p0->type);
  470. return RES_ERROR;
  471. }
  472. /****************************************/
  473. void PyObject__delete(PyObject* self) {
  474. py_TypeInfo* ti = pk__type_info(self->type);
  475. if(ti->dtor) ti->dtor(PyObject__userdata(self));
  476. if(self->slots == -1) NameDict__dtor(PyObject__dict(self));
  477. if(self->gc_is_large) {
  478. free(self);
  479. } else {
  480. PoolObject_dealloc(self);
  481. }
  482. }
  483. static void mark_object(PyObject* obj);
  484. void pk__mark_value(py_TValue* val) {
  485. if(val->is_ptr) mark_object(val->_obj);
  486. }
  487. void pk__mark_namedict(NameDict* dict) {
  488. for(int i = 0; i < dict->length; i++) {
  489. NameDict_KV* kv = c11__at(NameDict_KV, dict, i);
  490. pk__mark_value(&kv->value);
  491. }
  492. }
  493. void pk__tp_set_marker(py_Type type, void (*gc_mark)(void*)) {
  494. py_TypeInfo* ti = pk__type_info(type);
  495. assert(ti->gc_mark == NULL);
  496. ti->gc_mark = gc_mark;
  497. }
  498. static void mark_object(PyObject* obj) {
  499. if(obj->gc_marked) return;
  500. obj->gc_marked = true;
  501. if(obj->slots > 0) {
  502. py_TValue* p = PyObject__slots(obj);
  503. for(int i = 0; i < obj->slots; i++)
  504. pk__mark_value(p + i);
  505. } else if(obj->slots == -1) {
  506. NameDict* dict = PyObject__dict(obj);
  507. pk__mark_namedict(dict);
  508. }
  509. py_TypeInfo* ti = pk__type_info(obj->type);
  510. if(ti->gc_mark) ti->gc_mark(PyObject__userdata(obj));
  511. }
  512. void CodeObject__gc_mark(const CodeObject* self) {
  513. c11__foreach(py_TValue, &self->consts, i) { pk__mark_value(i); }
  514. c11__foreach(FuncDecl_, &self->func_decls, i) { CodeObject__gc_mark(&(*i)->code); }
  515. }
  516. void ManagedHeap__mark(ManagedHeap* self) {
  517. VM* vm = self->vm;
  518. // mark heap objects
  519. for(int i = 0; i < self->no_gc.length; i++) {
  520. PyObject* obj = c11__getitem(PyObject*, &self->no_gc, i);
  521. mark_object(obj);
  522. }
  523. // mark value stack
  524. for(py_TValue* p = vm->stack.begin; p != vm->stack.end; p++) {
  525. pk__mark_value(p);
  526. }
  527. // mark types
  528. int types_length = vm->types.length;
  529. // 0-th type is placeholder
  530. for(py_Type i = 1; i < types_length; i++) {
  531. py_TypeInfo* ti = TypeList__get(&vm->types, i);
  532. // mark magic slots
  533. for(int j = 0; j <= __missing__; j++) {
  534. py_TValue* slot = ti->magic + j;
  535. if(py_isnil(slot)) continue;
  536. pk__mark_value(slot);
  537. }
  538. // mark type annotations
  539. pk__mark_value(&ti->annotations);
  540. }
  541. // mark frame
  542. for(Frame* frame = vm->top_frame; frame; frame = frame->f_back) {
  543. Frame__gc_mark(frame);
  544. }
  545. // mark vm's registers
  546. pk__mark_value(&vm->last_retval);
  547. pk__mark_value(&vm->curr_exception);
  548. for(int i = 0; i < c11__count_array(vm->reg); i++) {
  549. pk__mark_value(&vm->reg[i]);
  550. }
  551. }
  552. void pk_print_stack(VM* self, Frame* frame, Bytecode byte) {
  553. return;
  554. if(frame == NULL || py_isnil(&self->main)) return;
  555. py_TValue* sp = self->stack.sp;
  556. c11_sbuf buf;
  557. c11_sbuf__ctor(&buf);
  558. for(py_Ref p = self->stack.begin; p != sp; p++) {
  559. switch(p->type) {
  560. case tp_nil: c11_sbuf__write_cstr(&buf, "nil"); break;
  561. case tp_int: c11_sbuf__write_i64(&buf, p->_i64); break;
  562. case tp_float: c11_sbuf__write_f64(&buf, p->_f64, -1); break;
  563. case tp_bool: c11_sbuf__write_cstr(&buf, p->_bool ? "True" : "False"); break;
  564. case tp_NoneType: c11_sbuf__write_cstr(&buf, "None"); break;
  565. case tp_list: {
  566. pk_sprintf(&buf, "list(%d)", py_list_len(p));
  567. break;
  568. }
  569. case tp_tuple: {
  570. pk_sprintf(&buf, "tuple(%d)", py_tuple_len(p));
  571. break;
  572. }
  573. case tp_function: {
  574. Function* ud = py_touserdata(p);
  575. c11_sbuf__write_cstr(&buf, ud->decl->code.name->data);
  576. c11_sbuf__write_cstr(&buf, "()");
  577. break;
  578. }
  579. case tp_type: {
  580. pk_sprintf(&buf, "<class '%t'>", py_totype(p));
  581. break;
  582. }
  583. case tp_str: {
  584. pk_sprintf(&buf, "%q", py_tosv(p));
  585. break;
  586. }
  587. case tp_module: {
  588. py_Ref path = py_getdict(p, __path__);
  589. pk_sprintf(&buf, "<module '%v'>", py_tosv(path));
  590. break;
  591. }
  592. default: {
  593. pk_sprintf(&buf, "(%t)", p->type);
  594. break;
  595. }
  596. }
  597. if(p != &sp[-1]) c11_sbuf__write_cstr(&buf, ", ");
  598. }
  599. c11_string* stack_str = c11_sbuf__submit(&buf);
  600. printf("%s:%-3d: %-25s %-6d [%s]\n",
  601. frame->co->src->filename->data,
  602. Frame__lineno(frame),
  603. pk_opname(byte.op),
  604. byte.arg,
  605. stack_str->data);
  606. c11_string__delete(stack_str);
  607. }
  608. bool pk_wrapper__self(int argc, py_Ref argv) {
  609. PY_CHECK_ARGC(1);
  610. py_assign(py_retval(), argv);
  611. return true;
  612. }
  613. bool pk_wrapper__NotImplementedError(int argc, py_Ref argv) {
  614. return py_exception(tp_NotImplementedError, "");
  615. }
  616. py_TypeInfo* pk__type_info(py_Type type) {
  617. return TypeList__get(&pk_current_vm->types, type);
  618. }