mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-21 11:10:21 +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
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;