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

Do not export private definitions and types.

Browse source 
* include/lightning/jit_aarch64.h, include/lightning/jit_arm.h,
	include/lightning/jit_hppa.h, include/lightning/jit_ia64.h,
	include/lightning/jit_mips.h, include/lightning/jit_ppc.h,
	include/lightning/jit_private.h, include/lightning/jit_s390x.h,
	include/lightning/jit_sparc.h, include/lightning/jit_x86.h:
	Do not add jit_regset_t, JIT_RA0, and JIT_FA0 to the installed
	header file. These types and definitions are supposed to be
	only used internally.
This commit is contained in:
pcpa 2014-04-09 14:46:30 -03:00
parent 0fac1b11ea
commit abf1b6e678
11 changed files with 37 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

13
ChangeLog
View file

@ -1,6 +1,17 @@
2014-04-09 Paulo Andrade <pcpa@gnu.org>
* include/lightning/jit_aarch64.h, include/lightning/jit_arm.h,
include/lightning/jit_hppa.h, include/lightning/jit_ia64.h,
include/lightning/jit_mips.h, include/lightning/jit_ppc.h,
include/lightning/jit_private.h, include/lightning/jit_s390x.h,
include/lightning/jit_sparc.h, include/lightning/jit_x86.h:
Do not add jit_regset_t, JIT_RA0, and JIT_FA0 to the installed
header file. These types and definitions are supposed to be
only used internally.
2014-04-05 Paulo Andrade <pcpa@gnu.org> 2014-04-05 Paulo Andrade <pcpa@gnu.org>
lib/jit_arm-cpu.c: Only adjust stack pointer in prolog if * lib/jit_arm-cpu.c: Only adjust stack pointer in prolog if
need stack space, that is, do not emit a nop instruction need stack space, that is, do not emit a nop instruction
subtracting zero from the stack pointer. subtracting zero from the stack pointer.

4
include/lightning/jit_aarch64.h
View file

@ -65,7 +65,6 @@ typedef enum {
_SP, /* stack pointer */ _SP, /* stack pointer */
_R30, /* link register */ _R30, /* link register */
_R29, /* frame pointer */ _R29, /* frame pointer */
#define JIT_RA0 _R0
_R7, _R6, _R5, _R4, _R7, _R6, _R5, _R4,
_R3, _R2, _R1, _R0, _R3, _R2, _R1, _R0,
#define JIT_F0 _V8 #define JIT_F0 _V8
@ -83,13 +82,10 @@ typedef enum {
/* callee save */ /* callee save */
_V8, _V9, _V10, _V11, _V8, _V9, _V10, _V11,
_V12, _V13, _V14, _V15, _V12, _V13, _V14, _V15,
#define JIT_FA0 _V0
_V7, _V6, _V5, _V4, /* arguments */ _V7, _V6, _V5, _V4, /* arguments */
_V3, _V2, _V1, _V0, _V3, _V2, _V1, _V0,
_NOREG, _NOREG,
#define JIT_NOREG _NOREG #define JIT_NOREG _NOREG
} jit_reg_t; } jit_reg_t;
typedef jit_uint64_t jit_regset_t;
#endif /* _jit_aarch64_h */ #endif /* _jit_aarch64_h */

4
include/lightning/jit_arm.h
View file

@ -58,7 +58,6 @@ typedef enum {
_R13, /* sp - stack pointer */ _R13, /* sp - stack pointer */
_R14, /* lr - link register */ _R14, /* lr - link register */
_R15, /* pc - program counter */ _R15, /* pc - program counter */
#define JIT_RA0 _R0
_R3, /* r3 - argument/result */ _R3, /* r3 - argument/result */
_R2, /* r2 - argument/result */ _R2, /* r2 - argument/result */
_R1, /* r1 - argument/result */ _R1, /* r1 - argument/result */
@ -87,7 +86,6 @@ typedef enum {
_S29, _S29,
_S30, _D15 = _S30, _S30, _D15 = _S30,
_S31, _S31,
#define JIT_FA0 _D0
_S15, _S15,
_S14, _D7 = _S14, _S14, _D7 = _S14,
_S13, _S13,
@ -123,8 +121,6 @@ typedef struct {
jit_uint32_t ldrt_strt : 1; jit_uint32_t ldrt_strt : 1;
} jit_cpu_t; } jit_cpu_t;
typedef jit_uint64_t jit_regset_t;
/* /*
* Initialization * Initialization
*/ */

2
include/lightning/jit_hppa.h
View file

@ -133,6 +133,4 @@ typedef enum {
_NOREG, _NOREG,
} jit_reg_t; } jit_reg_t;
typedef jit_uint64_t jit_regset_t;
#endif /* _jit_hppa */ #endif /* _jit_hppa */

7
include/lightning/jit_ia64.h
View file

@ -117,11 +117,4 @@ typedef enum {
_NOREG, _NOREG,
} jit_reg_t; } jit_reg_t;
typedef struct {
jit_uint64_t rl;
jit_uint64_t rh;
jit_uint64_t fl;
jit_uint64_t fh;
} jit_regset_t;
#endif /* _jit_ia64_h */ #endif /* _jit_ia64_h */

4
include/lightning/jit_mips.h
View file

@ -88,7 +88,6 @@ typedef enum {
_ZERO, _K0, _K1, _RA, _ZERO, _K0, _K1, _RA,
_GP, _GP,
_SP, _FP, _SP, _FP,
#define JIT_RA0 _A0
#if NEW_ABI #if NEW_ABI
_A7, _A6, _A5, _A4, _A7, _A6, _A5, _A4,
#endif #endif
@ -109,7 +108,6 @@ typedef enum {
_F16, _F18, _F16, _F18,
#endif #endif
_F20, _F22, _F24, _F26, _F28, _F30, _F20, _F22, _F24, _F26, _F28, _F30,
#define JIT_FA0 _F12
#if NEW_ABI #if NEW_ABI
_F19, _F18, _F17, _F16, _F15, _F14, _F13, _F12, _F19, _F18, _F17, _F16, _F15, _F14, _F13, _F12,
#else #else
@ -119,6 +117,4 @@ typedef enum {
_NOREG, _NOREG,
} jit_reg_t; } jit_reg_t;
typedef jit_uint64_t jit_regset_t;
#endif /* _jit_mips_h */ #endif /* _jit_mips_h */

4
include/lightning/jit_ppc.h
View file

@ -80,7 +80,6 @@ typedef enum {
_R1, _R1,
#define JIT_FP _R31 #define JIT_FP _R31
_R31, _R31,
#define JIT_RA0 _R3
_R10, _R9, _R8, _R7, _R6, _R5, _R4, _R3, _R10, _R9, _R8, _R7, _R6, _R5, _R4, _R3,
_F0, _F0,
_F14, _F15, _F16, _F17, _F18, _F19, _F20, _F21, _F14, _F15, _F16, _F17, _F18, _F19, _F20, _F21,
@ -96,13 +95,10 @@ typedef enum {
* saved/restored (if used) */ * saved/restored (if used) */
_F22, _F23, _F24, _F25, _F26, _F27, _F28, _F29, _F22, _F23, _F24, _F25, _F26, _F27, _F28, _F29,
_F30, _F31, _F30, _F31,
#define JIT_FA0 _F1
_F13, _F12, _F11, _F10, _F9, _F8, _F7, _F6, _F13, _F12, _F11, _F10, _F9, _F8, _F7, _F6,
_F5, _F4, _F3, _F2, _F1, _F5, _F4, _F3, _F2, _F1,
_NOREG, _NOREG,
#define JIT_NOREG _NOREG #define JIT_NOREG _NOREG
} jit_reg_t; } jit_reg_t;
typedef jit_uint64_t jit_regset_t;
#endif /* _jit_ppc_h */ #endif /* _jit_ppc_h */

25
include/lightning/jit_private.h
View file

@ -52,14 +52,23 @@
# define JIT_RET _RAX # define JIT_RET _RAX
# if __WORDSIZE == 32 # if __WORDSIZE == 32
# define JIT_FRET _ST0 # define JIT_FRET _ST0
typedef jit_uint32_t jit_regset_t;
# else # else
# define JIT_RA0 _RDI
# define JIT_FA0 _XMM0
# define JIT_FRET _XMM0 # define JIT_FRET _XMM0
typedef jit_uint64_t jit_regset_t;
# endif # endif
#elif defined(__mips__) #elif defined(__mips__)
# define JIT_RA0 _A0
# define JIT_FA0 _F12
# define JIT_SP _SP # define JIT_SP _SP
# define JIT_RET _V0 # define JIT_RET _V0
# define JIT_FRET _F0 # define JIT_FRET _F0
typedef jit_uint64_t jit_regset_t;
#elif defined(__arm__) #elif defined(__arm__)
# define JIT_RA0 _R0
# define JIT_FA0 _D0
# define JIT_SP _R13 # define JIT_SP _R13
# define JIT_RET _R0 # define JIT_RET _R0
# if defined(__ARM_PCS_VFP) # if defined(__ARM_PCS_VFP)
@ -67,30 +76,46 @@
# else # else
# define JIT_FRET _R0 # define JIT_FRET _R0
# endif # endif
typedef jit_uint64_t jit_regset_t;
#elif defined(__ppc__) || defined(__powerpc__) #elif defined(__ppc__) || defined(__powerpc__)
# define JIT_RA0 _R3
# define JIT_FA0 _F1
# define JIT_SP _R1 # define JIT_SP _R1
# define JIT_RET _R3 # define JIT_RET _R3
# define JIT_FRET _F1 # define JIT_FRET _F1
typedef jit_uint64_t jit_regset_t;
#elif defined(__sparc__) #elif defined(__sparc__)
# define JIT_SP _SP # define JIT_SP _SP
# define JIT_RET _I0 # define JIT_RET _I0
# define JIT_FRET _F0 # define JIT_FRET _F0
typedef jit_uint64_t jit_regset_t;
#elif defined(__ia64__) #elif defined(__ia64__)
# define JIT_SP _R12 # define JIT_SP _R12
# define JIT_RET _R8 # define JIT_RET _R8
# define JIT_FRET _F8 # define JIT_FRET _F8
typedef struct {
jit_uint64_t rl;
jit_uint64_t rh;
jit_uint64_t fl;
jit_uint64_t fh;
} jit_regset_t;
#elif defined(__hppa__) #elif defined(__hppa__)
# define JIT_SP _R30 # define JIT_SP _R30
# define JIT_RET _R28 # define JIT_RET _R28
# define JIT_FRET _F4 # define JIT_FRET _F4
typedef jit_uint64_t jit_regset_t;
#elif defined(__aarch64__) #elif defined(__aarch64__)
# define JIT_RA0 _R0
# define JIT_FA0 _V0
# define JIT_SP _SP # define JIT_SP _SP
# define JIT_RET _R0 # define JIT_RET _R0
# define JIT_FRET _V0 # define JIT_FRET _V0
typedef jit_uint64_t jit_regset_t;
#elif defined(__s390x__) #elif defined(__s390x__)
# define JIT_SP _R15 # define JIT_SP _R15
# define JIT_RET _R2 # define JIT_RET _R2
# define JIT_FRET _F0 # define JIT_FRET _F0
typedef jit_uint32_t jit_regset_t;
#endif #endif
#define jit_size(vector) (sizeof(vector) / sizeof((vector)[0])) #define jit_size(vector) (sizeof(vector) / sizeof((vector)[0]))

2
include/lightning/jit_s390x.h
View file

@ -67,6 +67,4 @@ typedef enum {
#define JIT_NOREG _NOREG #define JIT_NOREG _NOREG
} jit_reg_t; } jit_reg_t;
typedef jit_uint32_t jit_regset_t;
#endif /* _jit_s390x_h */ #endif /* _jit_s390x_h */

2
include/lightning/jit_sparc.h
View file

@ -65,6 +65,4 @@ typedef enum {
_NOREG, _NOREG,
} jit_reg_t; } jit_reg_t;
typedef jit_uint64_t jit_regset_t;
#endif /* _jit_sparc_h */ #endif /* _jit_sparc_h */

8
include/lightning/jit_x86.h
View file

@ -78,7 +78,6 @@ typedef enum {
# define JIT_V2 _R14 # define JIT_V2 _R14
# define JIT_V3 _R15 # define JIT_V3 _R15
_RBX, _R13, _R14, _R15, _RBX, _R13, _R14, _R15,
# define JIT_RA0 _RDI
_R9, _R8, _RCX, _RDX, _RSI, _RDI, _R9, _R8, _RCX, _RDX, _RSI, _RDI,
_RSP, _RBP, _RSP, _RBP,
# define JIT_F0 _XMM8 # define JIT_F0 _XMM8
@ -90,7 +89,6 @@ typedef enum {
# define JIT_F6 _XMM14 # define JIT_F6 _XMM14
# define JIT_F7 _XMM15 # define JIT_F7 _XMM15
_XMM8, _XMM9, _XMM10, _XMM11, _XMM12, _XMM13, _XMM14, _XMM15, _XMM8, _XMM9, _XMM10, _XMM11, _XMM12, _XMM13, _XMM14, _XMM15,
# define JIT_FA0 _XMM0
_XMM7, _XMM6, _XMM5, _XMM4, _XMM3, _XMM2, _XMM1, _XMM0, _XMM7, _XMM6, _XMM5, _XMM4, _XMM3, _XMM2, _XMM1, _XMM0,
# define jit_sse_reg_p(reg) ((reg) >= _XMM8 && (reg) <= _XMM0) # define jit_sse_reg_p(reg) ((reg) >= _XMM8 && (reg) <= _XMM0)
#endif #endif
@ -138,12 +136,6 @@ typedef struct {
jit_uint32_t lahf : 1; jit_uint32_t lahf : 1;
} jit_cpu_t; } jit_cpu_t;
#if __WORDSIZE == 32
typedef jit_uint32_t jit_regset_t;
#else
typedef jit_uint64_t jit_regset_t;
#endif
/* /*
* Initialization * Initialization
*/ */