mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-02 04:40:29 +02:00
712877a5a4
* check/all.tst, check/lightning.c: Only declare or use 64 bit interfaces on 64 bit builds. * check/fib.tst: Use simpler logic to not need preprocessor conditionals for 32 or 64 bit. * include/lightning.h: Only declare 64 bit macros on a 64 bit build. Code using lightning must know about wordsize and the jit generation limitations, also, this way it generates a compile time failure, not a runtime assertion. * include/lightning/jit_x86.h: Correct typo in macro name. * lib/jit_arm.c, lib/jit_arm-cpu.c, lib/jit_mips.c, lib/jit_mips-cpu.c, lib/jit_ppc.c, lib/jit_ppc-cpu.c, lib/jit_x86.c, lib/jit_x86-cpu.c: Correct wrong code to get current jit function pointer. * lib/lightning.c: Move call to the simplify() optimization to after register liveness is known. Previous code did work by accident but now with proper test cases the problem was noticed. * lib/jit_disasm.c: Always cast bfd_vma to long long when passing it as printf argument.
166 lines
4.7 KiB
C
166 lines
4.7 KiB
C
/*
|
|
* Copyright (C) 2012 Free Software Foundation, Inc.
|
|
*
|
|
* This is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation, either version 3 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This software is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* Authors:
|
|
* Paulo Cesar Pereira de Andrade
|
|
*/
|
|
|
|
#ifndef _jit_x86_h
|
|
#define _jit_x86_h
|
|
|
|
#define JIT_HASH_CONSTS 1
|
|
#define JIT_NUM_OPERANDS 2
|
|
|
|
/*
|
|
* Types
|
|
*/
|
|
#define jit_sse2_p() jit_cpu.sse2
|
|
#define jit_x87_reg_p(reg) ((reg) >= _ST0 && (reg) <= _ST7)
|
|
|
|
#define JIT_RET _RAX
|
|
#define JIT_SP _RSP
|
|
#define JIT_FP _RBP
|
|
typedef enum {
|
|
#if __WORDSIZE == 32
|
|
# define jit_arg_reg_p(i) 0
|
|
# define jit_r(i) (_RAX + (i))
|
|
# define jit_r_num() 3
|
|
# define jit_v(i) (_RBX + (i))
|
|
# define jit_v_num() 3
|
|
# define jit_arg_f_reg_p(i) 0
|
|
# define jit_f(i) (jit_cpu.sse2 ? _XMM0 + (i) : _ST0 + (i))
|
|
# define jit_f_num() (jit_cpu.sse2 ? 8 : 6)
|
|
# define JIT_FRET _ST0
|
|
# define JIT_R0 _RAX
|
|
# define JIT_R1 _RCX
|
|
# define JIT_R2 _RDX
|
|
_RAX, _RCX, _RDX,
|
|
# define JIT_V0 _RBX
|
|
# define JIT_V1 _RSI
|
|
# define JIT_V2 _RDI
|
|
_RBX, _RSI, _RDI,
|
|
_RSP, _RBP,
|
|
# define JIT_F0 (jit_sse2_p() ? _XMM0 : _ST0)
|
|
# define JIT_F1 (jit_sse2_p() ? _XMM1 : _ST1)
|
|
# define JIT_F2 (jit_sse2_p() ? _XMM2 : _ST2)
|
|
# define JIT_F3 (jit_sse2_p() ? _XMM3 : _ST3)
|
|
# define JIT_F4 (jit_sse2_p() ? _XMM4 : _ST4)
|
|
# define JIT_F5 (jit_sse2_p() ? _XMM5 : _ST5)
|
|
# define JIT_F6 (jit_sse2_p() ? _XMM6 : _ST6)
|
|
# define JIT_F7 (jit_sse2_p() ? _XMM7 : _ST7)
|
|
_XMM0, _XMM1, _XMM2, _XMM3, _XMM4, _XMM5, _XMM6, _XMM7,
|
|
# define jit_sse_reg_p(reg) ((reg) >= _XMM0 && (reg) <= _XMM7)
|
|
#else
|
|
# define jit_arg_reg_p(i) ((i) >= 0 && (i) < 6)
|
|
# define jit_r(i) (_RAX + (i))
|
|
# define jit_r_num() 4
|
|
# define jit_v(i) (_RBX + (i))
|
|
# define jit_v_num() 4
|
|
# define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 8)
|
|
# define jit_f(index) (_XMM0 + (index))
|
|
# define jit_f_num() 8
|
|
# define JIT_FRET _XMM0
|
|
# define JIT_R0 _RAX
|
|
# define JIT_R1 _R10
|
|
# define JIT_R2 _R11
|
|
# define JIT_R3 _R12
|
|
_RAX, _R10, _R11, _R12,
|
|
# define JIT_V0 _RBX
|
|
# define JIT_V1 _R13
|
|
# define JIT_V2 _R14
|
|
# define JIT_V3 _R15
|
|
_RBX, _R13, _R14, _R15,
|
|
# define JIT_RA0 _RDI
|
|
# define JIT_RA1 _RSI
|
|
# define JIT_RA2 _RDX
|
|
# define JIT_RA3 _RCX
|
|
# define JIT_RA4 _R8
|
|
# define JIT_RA5 _R9
|
|
_R9, _R8, _RCX, _RDX, _RSI, _RDI,
|
|
_RSP, _RBP,
|
|
# define JIT_F0 _XMM8
|
|
# define JIT_F1 _XMM9
|
|
# define JIT_F2 _XMM10
|
|
# define JIT_F3 _XMM11
|
|
# define JIT_F4 _XMM12
|
|
# define JIT_F5 _XMM13
|
|
# define JIT_F6 _XMM14
|
|
# define JIT_F7 _XMM15
|
|
_XMM8, _XMM9, _XMM10, _XMM11, _XMM12, _XMM13, _XMM14, _XMM15,
|
|
# define JIT_FA0 _XMM0
|
|
# define JIT_FA1 _XMM1
|
|
# define JIT_FA2 _XMM2
|
|
# define JIT_FA3 _XMM3
|
|
# define JIT_FA4 _XMM4
|
|
# define JIT_FA5 _XMM5
|
|
# define JIT_FA6 _XMM6
|
|
# define JIT_FA7 _XMM7
|
|
_XMM7, _XMM6, _XMM5, _XMM4, _XMM3, _XMM2, _XMM1, _XMM0,
|
|
# define jit_sse_reg_p(reg) ((reg) >= _XMM8 && (reg) <= _XMM0)
|
|
#endif
|
|
_ST0, _ST1, _ST2, _ST3, _ST4, _ST5, _ST6, _ST7,
|
|
# define JIT_NOREG _NOREG
|
|
_NOREG,
|
|
} jit_reg_t;
|
|
|
|
typedef struct {
|
|
/* x87 present */
|
|
jit_uint32_t fpu : 1;
|
|
/* cmpxchg8b instruction */
|
|
jit_uint32_t cmpxchg8b : 1;
|
|
/* cmov and fcmov branchless conditional mov */
|
|
jit_uint32_t cmov : 1;
|
|
/* mmx registers/instructions available */
|
|
jit_uint32_t mmx : 1;
|
|
/* sse registers/instructions available */
|
|
jit_uint32_t sse : 1;
|
|
/* sse2 registers/instructions available */
|
|
jit_uint32_t sse2 : 1;
|
|
/* sse3 instructions available */
|
|
jit_uint32_t sse3 : 1;
|
|
/* pcmulqdq instruction */
|
|
jit_uint32_t pclmulqdq : 1;
|
|
/* ssse3 suplemental sse3 instructions available */
|
|
jit_uint32_t ssse3 : 1;
|
|
/* fused multiply/add using ymm state */
|
|
jit_uint32_t fma : 1;
|
|
/* cmpxchg16b instruction */
|
|
jit_uint32_t cmpxchg16b : 1;
|
|
/* sse4.1 instructions available */
|
|
jit_uint32_t sse4_1 : 1;
|
|
/* sse4.2 instructions available */
|
|
jit_uint32_t sse4_2 : 1;
|
|
/* movbe instruction available */
|
|
jit_uint32_t movbe : 1;
|
|
/* popcnt instruction available */
|
|
jit_uint32_t popcnt : 1;
|
|
/* aes instructions available */
|
|
jit_uint32_t aes : 1;
|
|
/* avx instructions available */
|
|
jit_uint32_t avx : 1;
|
|
/* lahf/sahf available in 64 bits mode */
|
|
jit_uint32_t lahf : 1;
|
|
} jit_cpu_t;
|
|
|
|
#if __WORDSIZE == 32
|
|
typedef jit_int32_t jit_regset_t;
|
|
#else
|
|
typedef jit_int64_t jit_regset_t;
|
|
#endif
|
|
|
|
/*
|
|
* Initialization
|
|
*/
|
|
extern jit_cpu_t jit_cpu;
|
|
|
|
#endif /* _jit_x86_h */
|