mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-04 05:50:26 +02:00
Code Activity

Resync with new patch to make functions receive a const argument

Browse source
This commit is contained in:
pcpa 2014-11-01 22:32:23 -02:00
parent e98640e1ac
commit 85ab988cd1
6 changed files with 17 additions and 17 deletions
Download patch file Download diff file Expand all files Collapse all files

8
include/lightning.h
View file

@ -120,7 +120,6 @@ typedef jit_uint64_t jit_uword_t;
typedef float jit_float32_t;
typedef double jit_float64_t;
typedef void* jit_pointer_t;
typedef const void* jit_const_pointer_t;
typedef jit_int32_t jit_bool_t;
typedef jit_int32_t jit_gpr_t;
typedef jit_int32_t jit_fpr_t;
@ -175,7 +174,6 @@ typedef struct jit_node jit_node_t;
typedef struct jit_state jit_state_t;
typedef enum {
#define jit_data(u,v,w) _jit_data(_jit,u,v,w)
jit_code_data,
#define jit_live(u) jit_new_node_w(jit_code_live, u)
#define jit_align(u) jit_new_node_w(jit_code_align, u)
@ -846,7 +844,7 @@ typedef void (*jit_free_func_ptr) (void*);
/*
* Prototypes
*/
extern void init_jit(char*);
extern void init_jit(const char*);
extern void finish_jit(void);
extern jit_state_t *jit_new_state(void);
@ -857,9 +855,7 @@ extern void _jit_destroy_state(jit_state_t*);
#define jit_address(node) _jit_address(_jit, node)
extern jit_pointer_t _jit_address(jit_state_t*, jit_node_t*);
extern jit_node_t *_jit_data(jit_state_t*, jit_const_pointer_t,
jit_word_t, jit_int32_t);
extern jit_node_t *_jit_name(jit_state_t*, char*);
extern jit_node_t *_jit_name(jit_state_t*, const char*);
extern jit_node_t *_jit_note(jit_state_t*, const char*, int);
extern jit_node_t *_jit_label(jit_state_t*);
extern jit_node_t *_jit_forward(jit_state_t*);

10
include/lightning/jit_private.h
View file

@ -127,6 +127,10 @@ typedef jit_uint32_t jit_regset_t;
typedef jit_uint64_t jit_regset_t;
#endif
#define jit_data(u,v,w) _jit_data(_jit,u,v,w)
extern jit_node_t *_jit_data(jit_state_t*, const void*,
jit_word_t, jit_int32_t);
#define jit_size(vector) (sizeof(vector) / sizeof((vector)[0]))
#define jit_reg_free_p(regno) \
@ -601,7 +605,7 @@ _emit_ldxi_d(jit_state_t*, jit_int32_t, jit_int32_t, jit_word_t);
extern void
_emit_stxi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_int32_t);
extern void jit_init_debug(char*);
extern void jit_init_debug(const char*);
extern void jit_finish_debug(void);
extern void jit_init_note(void);
@ -611,8 +615,8 @@ extern void _jit_set_note(jit_state_t*, jit_note_t*, char*, int, jit_int32_t);
#define jit_annotate() _jit_annotate(_jit)
extern void _jit_annotate(jit_state_t*);
extern jit_pointer_t jit_memcpy(jit_pointer_t,jit_const_pointer_t,jit_word_t);
extern jit_pointer_t jit_memmove(jit_pointer_t,jit_const_pointer_t,jit_word_t);
extern jit_pointer_t jit_memcpy(jit_pointer_t,const void*,jit_word_t);
extern jit_pointer_t jit_memmove(jit_pointer_t,const void*,jit_word_t);
extern void jit_alloc(jit_pointer_t*, jit_word_t);
extern void jit_realloc(jit_pointer_t*, jit_word_t, jit_word_t);
void jit_free(jit_pointer_t*);

2
lib/jit_disasm.c
View file

@ -57,7 +57,7 @@ static jit_state_t *disasm_jit;
* Implementation
*/
void
jit_init_debug(char *progname)
jit_init_debug(const char *progname)
{
#if DISASSEMBLER
bfd_init();

4
lib/jit_memory.c
View file

@ -39,7 +39,7 @@ static jit_free_func_ptr jit_free_ptr = jit_default_free_func;
* Implementation
*/
jit_pointer_t
jit_memcpy(jit_pointer_t dst, jit_const_pointer_t src, jit_word_t size)
jit_memcpy(jit_pointer_t dst, const void * src, jit_word_t size)
{
if (size)
return (memcpy(dst, src, size));
@ -47,7 +47,7 @@ jit_memcpy(jit_pointer_t dst, jit_const_pointer_t src, jit_word_t size)
}
jit_pointer_t
jit_memmove(jit_pointer_t dst, jit_const_pointer_t src , jit_word_t size)
jit_memmove(jit_pointer_t dst, const void *src , jit_word_t size)
{
if (size)
return (memmove(dst, src, size));

2
lib/jit_note.c
View file

@ -47,7 +47,7 @@ jit_finish_note(void)
}
jit_node_t *
_jit_name(jit_state_t *_jit, char *name)
_jit_name(jit_state_t *_jit, const char *name)
{
jit_node_t *node;

8
lib/lightning.c
View file

@ -44,7 +44,7 @@
/*
* Prototypes
*/
static jit_word_t hash_data(jit_const_pointer_t, jit_word_t);
static jit_word_t hash_data(const void*, jit_word_t);
#define new_pool() _new_pool(_jit)
static void _new_pool(jit_state_t*);
@ -178,7 +178,7 @@ _patch_register(jit_state_t *jit, jit_node_t *node, jit_node_t *link,
* Implementation
*/
void
init_jit(char *progname)
init_jit(const char *progname)
{
jit_get_cpu();
jit_init_debug(progname);
@ -536,7 +536,7 @@ _jit_load(jit_state_t *_jit, jit_int32_t reg)
}
static jit_word_t
hash_data(jit_const_pointer_t data, jit_word_t length)
hash_data(const void *data, jit_word_t length)
{
const jit_uint8_t *ptr;
jit_word_t i, key;
@ -558,7 +558,7 @@ _jit_address(jit_state_t *_jit, jit_node_t *node)
}
jit_node_t *
_jit_data(jit_state_t *_jit, jit_const_pointer_t data,
_jit_data(jit_state_t *_jit, const void *data,
jit_word_t length, jit_int32_t align)
{
jit_word_t key;