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

Remove the global but not advertised jit_progname variable

Browse source 
* include/lightning/jit_private.h, lib/jit_disasm.c,
	lib/lightning.c: Remove the global jit_progname variable.
	It was being only used in jit_init_debug, that is called
	from init_jit, so, just pass an argument.
This commit is contained in:
pcpa 2014-07-27 16:48:52 -03:00
parent 0d96d24073
commit a8c180a926
4 changed files with 11 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

7
ChangeLog
View file

@ -1,3 +1,10 @@
2014-07-27 Paulo Andrade <pcpa@gnu.org>
* include/lightning/jit_private.h, lib/jit_disasm.c,
lib/lightning.c: Remove the global jit_progname variable.
It was being only used in jit_init_debug, that is called
from init_jit, so, just pass an argument.
2014-07-27 Paulo Andrade <pcpa@gnu.org> 2014-07-27 Paulo Andrade <pcpa@gnu.org>
* doc/body.texi: Add note that jit_set_memory_functions * doc/body.texi: Add note that jit_set_memory_functions

3
include/lightning/jit_private.h
View file

@ -582,7 +582,7 @@ _emit_ldxi_d(jit_state_t*, jit_int32_t, jit_int32_t, jit_word_t);
extern void extern void
_emit_stxi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_int32_t); _emit_stxi_d(jit_state_t*, jit_word_t, jit_int32_t, jit_int32_t);
extern void jit_init_debug(void); extern void jit_init_debug(char*);
extern void jit_finish_debug(void); extern void jit_finish_debug(void);
extern void jit_init_note(void); extern void jit_init_note(void);
@ -620,6 +620,5 @@ jit_get_max_instr(void);
* Externs * Externs
*/ */
extern jit_register_t _rvs[]; extern jit_register_t _rvs[];
extern const char *jit_progname;
#endif /* _jit_private_h */ #endif /* _jit_private_h */

4
lib/jit_disasm.c
View file

@ -57,12 +57,12 @@ static jit_state_t *disasm_jit;
* Implementation * Implementation
*/ */
void void
jit_init_debug(void) jit_init_debug(char *progname)
{ {
#if DISASSEMBLER #if DISASSEMBLER
bfd_init(); bfd_init();
disasm_bfd = bfd_openr(jit_progname, NULL); disasm_bfd = bfd_openr(progname, NULL);
assert(disasm_bfd); assert(disasm_bfd);
bfd_check_format(disasm_bfd, bfd_object); bfd_check_format(disasm_bfd, bfd_object);
bfd_check_format(disasm_bfd, bfd_archive); bfd_check_format(disasm_bfd, bfd_archive);

4
lib/lightning.c
View file

@ -170,7 +170,6 @@ _patch_register(jit_state_t *jit, jit_node_t *node, jit_node_t *link,
/* /*
* Initialization * Initialization
*/ */
const char *jit_progname;
#if !defined(__sgi) #if !defined(__sgi)
#define mmap_fd -1 #define mmap_fd -1
#endif #endif
@ -181,9 +180,8 @@ const char *jit_progname;
void void
init_jit(char *progname) init_jit(char *progname)
{ {
jit_progname = progname;
jit_get_cpu(); jit_get_cpu();
jit_init_debug(); jit_init_debug(progname);
jit_init_size(); jit_init_size();
} }