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

Move multiply defined macro to a single header file.

Browse source
This commit is contained in:
pcpa 2015-05-25 15:53:17 -03:00
parent 0b6cc01eea
commit 1ce1d00db8
11 changed files with 3 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

3
include/lightning/jit_private.h
View file

@ -47,6 +47,9 @@
# define HIDDEN /**/
#endif
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#if defined(__i386__) || defined(__x86_64__)
# define JIT_SP _RSP
# define JIT_RET _RAX

2
lib/jit_aarch64.c
View file

@ -17,8 +17,6 @@
* Paulo Cesar Pereira de Andrade
*/
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 8)
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 8)

2
lib/jit_alpha.c
View file

@ -17,8 +17,6 @@
* Paulo Cesar Pereira de Andrade
*/
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 6)
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 6)
#if __BYTE_ORDER == __LITTLE_ENDIAN

2
lib/jit_arm.c
View file

@ -21,8 +21,6 @@
# include <stdio.h>
#endif
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 4)
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 16)
#define jit_arg_d_reg_p(i) ((i) >= 0 && (i) < 15)

2
lib/jit_hppa.c
View file

@ -20,8 +20,6 @@
#include <lightning.h>
#include <lightning/jit_private.h>
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) (i >= 0 && i < 4)
#define PROTO 1

2
lib/jit_ia64.c
View file

@ -20,8 +20,6 @@
#include <lightning.h>
#include <lightning/jit_private.h>
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 8)
#if __BYTE_ORDER == __LITTLE_ENDIAN
# define C_DISP 0

3
lib/jit_mips.c
View file

@ -21,9 +21,6 @@
# include <sys/cachectl.h>
#endif
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
/* FIXME Need to detect (from /proc on Linux?) if a Loongson or Godson,
* because n32 and n64 mandate that float registers are 64 bit, and
* on the later, registers are 32 bit.

2
lib/jit_ppc.c
View file

@ -17,8 +17,6 @@
* Paulo Cesar Pereira de Andrade
*/
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 8)
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 13)
#if __BYTE_ORDER == __LITTLE_ENDIAN

2
lib/jit_s390.c
View file

@ -20,8 +20,6 @@
#include <lightning.h>
#include <lightning/jit_private.h>
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#if __WORDSIZE == 32
# define NUM_FLOAT_REG_ARGS 2
#else

2
lib/jit_sparc.c
View file

@ -17,8 +17,6 @@
* Paulo Cesar Pereira de Andrade
*/
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 6)
#define jit_arg_d_reg_p(i) ((i) >= 0 && (i) < 5)

2
lib/jit_x86.c
View file

@ -20,8 +20,6 @@
#include <lightning.h>
#include <lightning/jit_private.h>
#define rc(value) jit_class_##value
#define rn(reg) (jit_regno(_rvs[jit_regno(reg)].spec))
#if __X32
# define jit_arg_reg_p(i) 0
# define jit_arg_f_reg_p(i) 0