hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

renamed clear_io_names() to moo_clearcionames().

Browse Source 
attempting to write a fucntion that gives a source line for an instruction pointer
This commit is contained in:
hyunghwan.chung 2019-07-10 15:30:08 +00:00
parent b3eb804f87
commit 4afe4b459d
4 changed files with 50 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
moo/lib/comp.c
View File

@ -2352,7 +2352,7 @@ retry:
return 0;
}
static void clear_io_names (moo_t* moo)
void moo_clearcionames (moo_t* moo)
{
moo_iolink_t* cur;
@ -7026,7 +7026,13 @@ static int add_compiled_method (moo_t* moo)
if (moo_addmethodtodbgi(moo, file_offset, cc->dbgi_class_offset, cc->mth.name.ptr, cc->mth.code.locptr, cc->mth.code.len, &method_offset) <= -1)
{
/* TODO: warning. no debug information about this method will be available */
method_offset = 0;
}
else if (method_offset > MOO_SMOOI_MAX)
{
method_offset = 90;
}
/* TODO mth->code_sline = MOO_SMOOI_TO_OOP(method_offset); */
}
/*TODO: preserve source??? mth->text = cc->mth.text
@ -9681,7 +9687,7 @@ static void fini_compiler (moo_t* moo)
/* called before the moo object is closed */
if (moo->c)
{
clear_io_names (moo);
moo_clearcionames (moo);
if (moo->c->tok.name.ptr) moo_freemem (moo, moo->c->tok.name.ptr);
if (moo->c->balit.ptr) moo_freemem (moo, moo->c->balit.ptr);
@ -9731,7 +9737,7 @@ static MOO_INLINE int _compile (moo_t* moo, moo_ioimpl_t io)
* I clear such names before i begin this function. i don't clear it
* at the end of this function because i may be referenced as an error
* location */
clear_io_names (moo);
moo_clearcionames (moo);
/* reset pragma flags */
moo->c->pragma_flags = 0;

41
moo/lib/exec.c
View File

@ -2217,15 +2217,16 @@ static moo_pfrc_t pf_context_find_exception_handler (moo_t* moo, moo_mod_t* mod,
/* ------------------------------------------------------------------ */
static moo_pfrc_t pf_method_get_source_file (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
{
moo_oop_t retv = moo->_nil;
if (moo->dbgi)
{
moo_oop_method_t rcv;
moo_oop_t retv = moo->_nil;
/* TODO: return something else lighter-weight than a string? */
rcv = (moo_oop_method_t)MOO_STACK_GETRCV(moo, nargs);
MOO_PF_CHECK_RCV (moo, MOO_CLASSOF(moo, rcv) == moo->_method);
if (moo->dbgi)
{
if (MOO_OOP_IS_SMOOI(rcv->source_file) && MOO_OOP_TO_SMOOI(rcv->source_file) > 0)
{
moo_dbgi_file_t* di;
@ -2246,6 +2247,38 @@ static moo_pfrc_t pf_method_get_source_file (moo_t* moo, moo_mod_t* mod, moo_ooi
return MOO_PF_SUCCESS;
}
static moo_pfrc_t pf_method_get_code_source_line (moo_t* moo, moo_mod_t* mod, moo_ooi_t nargs)
{
/* get source line of the given instruction pointer */
moo_oop_method_t rcv;
rcv = (moo_oop_method_t)MOO_STACK_GETRCV(moo, nargs);
MOO_PF_CHECK_RCV (moo, MOO_CLASSOF(moo, rcv) == moo->_method);
if (moo->dbgi && MOO_OOP_IS_SMOOI(rcv->source_line))
{
moo_oop_t ip;
moo_ooi_t source_line, ipv;
ip = MOO_STACK_GETARG(moo, nargs, 0);
MOO_PF_CHECK_ARGS (moo, nargs, MOO_OOP_IS_SMOOI(ip));
source_line = MOO_OOP_TO_SMOOI(rcv->source_line);
ipv = MOO_OOP_TO_SMOOI(ip);
#if 0
if (MOO_OOP_IS_SMOOI(rcv->code_sline))
{
moo_dbgi_method_t* di;
di = (moo_dbgi_method_t*)&((moo_uint8_t*)moo->dbgi)[MOO_OOP_TO_SMOOI(rcv->code_sline)];
/* ... TODO .. */
}
#endif
}
return MOO_PF_SUCCESS;
}
/* ------------------------------------------------------------------ */
static moo_pfrc_t __block_value (moo_t* moo, moo_oop_context_t rcv_blkctx, moo_ooi_t nargs, moo_ooi_t num_first_arg_elems, moo_oop_context_t* pblkctx)

1
moo/lib/moo-prv.h
View File

@ -1679,6 +1679,7 @@ int moo_addmethodtodbgi (moo_t* moo, moo_oow_t file_offset, moo_oow_t class_offs
/* ========================================================================= */
#if defined(MOO_INCLUDE_COMPILER)
const moo_ooch_t* moo_addcioname (moo_t* moo, const moo_oocs_t* name);
void moo_clearcionames (moo_t* moo);
#endif
#if defined(__cplusplus)

5
moo/lib/moo.h
View File

@ -586,8 +586,9 @@ struct moo_method_t
#endif
moo_oop_t source_text; /* source text. String if available. nil if not */
moo_oop_t source_file; /* SmallInteger. source file path that contains the definition of this method. offset from moo->dbgi. 0 for the main stream. */
moo_oop_t source_line; /* SmallInteger. line of the source file where the method definition begins. valid only if source_file is not nil */
moo_oop_t source_file; /* SmallInteger. source file path that contains the definition of this method. offset from moo->dbgi. 0 if unavailable */
moo_oop_t source_line; /* SmallInteger. line of the source file where the method definition begins. valid only if source_file is greater than 0 */
//moo_oop_t code_line; /* SmallInteger */
/* == variable indexed part == */
moo_oop_t literal_frame[1]; /* it stores literals */