extern char ** glob_argv;
/* Stack frames.
- * Are used to store local variables (REGS) of function and provide information for stack dump */
+ * Are used to:
+ * - store local variables (REGS) of functions
+ * - store context for closure
+ * - provide information for stack dump
+ */
struct stack_frame_t {
struct stack_frame_t *prev; /* previous stack frame */
const char *file; /* source filename (.nit) */
int line; /* line number (in the source) */
const char *meth; /* human function name (usually the method name) */
+ struct stack_frame_t *closure_ctx; /* closure context (for functions that have closure parameters) */
+ fun_t *closure_funs; /* closure functions (for functions that have closure parameters) */
+ int has_broke; /* has an escape occured? 0 if false, label_idx (>0) if true */
int REG_size; /* number of local variables */
val_t REG[1]; /* local variables (flexible array) */
};
typedef enum {true = (1==1),false = (0==1)} bool;
void nit_exit(int);
+void nit_abort(const char*, const char*, const char*, int);
#define CALL(r,c) ((VAL2VFT(r)[c].f))
#define ATTR(r,c) (*(val_t*)(VAL2OBJ(r)+c))
void prepare_signals(void);
extern classtable_t TAG2VFT[4];
-
-/* This structure is used to store closure.
- * Specific closure use a specific fun parameter.
- */
-struct WBT_ {fun_t fun; val_t *has_broke; val_t broke_value; val_t *variable; struct WBT_ **closurevariable;};
+val_t NEW_NativeArray(size_t length, size_t size);
#endif