mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-02 10:16:19 +02:00
Code Activity

Add the new jit_pointer_p predicate interface.

Browse source 
* include/lightning.h, lib/lightning.c: Add the new
	jit_pointer_p interface, that returns a boolean value
	telling if the pointer argument is inside the jit
	code buffer. This is useful to avoid the need to add
	extra labels and calls to jit_address to figure bounds
	of code buffer, and still keep internal data private.
This commit is contained in:
pcpa 2013-09-14 14:43:05 -03:00
parent 948315f45e
commit 95e3fbc8bc
3 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
ChangeLog
View file

@ -1,3 +1,12 @@
2013-10-14 Paulo Andrade <pcpa@gnu.org>
* include/lightning.h, lib/lightning.c: Add the new
jit_pointer_p interface, that returns a boolean value
telling if the pointer argument is inside the jit
code buffer. This is useful to avoid the need to add
extra labels and calls to jit_address to figure bounds
of code buffer, and still keep internal data private.
2013-10-13 Paulo Andrade <pcpa@gnu.org> 2013-10-13 Paulo Andrade <pcpa@gnu.org>
* include/lightning.h, include/lightning/jit_private.h, * include/lightning.h, include/lightning/jit_private.h,

2
include/lightning.h
View file

@ -953,6 +953,8 @@ extern jit_node_t *_jit_new_node_pwd(jit_state_t*, jit_code_t,
#define jit_callee_save_p(u) _jit_callee_save_p(_jit,u) #define jit_callee_save_p(u) _jit_callee_save_p(_jit,u)
extern jit_bool_t _jit_callee_save_p(jit_state_t*, jit_int32_t); extern jit_bool_t _jit_callee_save_p(jit_state_t*, jit_int32_t);
#define jit_pointer_p(u) _jit_pointer_p(_jit,u)
extern jit_bool_t _jit_pointer_p(jit_state_t*,jit_pointer_t);
#define jit_get_note(n,u,v,w) _jit_get_note(_jit,n,u,v,w) #define jit_get_note(n,u,v,w) _jit_get_note(_jit,n,u,v,w)
extern jit_bool_t _jit_get_note(jit_state_t*,jit_pointer_t,char**,char**,int*); extern jit_bool_t _jit_get_note(jit_state_t*,jit_pointer_t,char**,char**,int*);

7
lib/lightning.c
View file

@ -337,6 +337,13 @@ _jit_callee_save_p(jit_state_t *_jit, jit_int32_t regno)
return (!!(_rvs[regno].spec & jit_class_sav)); return (!!(_rvs[regno].spec & jit_class_sav));
} }
extern jit_bool_t
_jit_pointer_p(jit_state_t *_jit, jit_pointer_t address)
{
return ((jit_uint8_t *)address >= _jit->code.ptr &&
(jit_word_t)address < _jit->pc.w);
}
#if __ia64__ #if __ia64__
void void
jit_regset_com(jit_regset_t *u, jit_regset_t *v) jit_regset_com(jit_regset_t *u, jit_regset_t *v)