mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-03 13:20:26 +02:00
d6110f6cf3
* check/lightning.c, configure.ac, include/lightning.h, lib/lightning.c: Add tests and quirks to build/detect and/or work on Irix. * include/lightning/jit_mips.h, lib/jit_mips-cpu.c, lib/jit_mips-fpu.c, lib/jit_mips.c: Adapt code to run in big endian mips, using the n32 abi.
95 lines
2.1 KiB
C
95 lines
2.1 KiB
C
/*
|
|
* Copyright (C) 2012, 2013 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_mips_h
|
|
#define _jit_mips_h
|
|
|
|
#define JIT_HASH_CONSTS 1
|
|
#define JIT_NUM_OPERANDS 3
|
|
|
|
#if defined(_ABIN32)
|
|
# define NEW_ABI 1
|
|
#endif
|
|
|
|
/*
|
|
* Types
|
|
*/
|
|
#define JIT_FP _FP
|
|
typedef enum {
|
|
#define jit_r(i) (_V0 + (i))
|
|
#if NEW_ABI
|
|
# define jit_arg_reg_p(i) ((i) >= 0 && (i) < 4)
|
|
# define jit_r_num() 8
|
|
#else
|
|
# define jit_arg_reg_p(i) ((i) >= 0 && (i) < 4)
|
|
# define jit_r_num() 12
|
|
#endif
|
|
#define jit_v(i) (_S0 + (i))
|
|
#define jit_v_num() 8
|
|
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 4)
|
|
#define jit_f(i) (_F0 + (i))
|
|
#define jit_f_num() 14
|
|
_AT,
|
|
#define JIT_R0 _V0
|
|
#define JIT_R1 _V1
|
|
#if NEW_ABI
|
|
# define JIT_R2 _T4
|
|
#else
|
|
# define JIT_R2 _T0
|
|
#endif
|
|
_V0, _V1,
|
|
#if !NEW_ABI
|
|
_T0, _T1, _T2, _T3,
|
|
#endif
|
|
_T4, _T5, _T6, _T7, _T8, _T9,
|
|
#define JIT_V0 _S0
|
|
#define JIT_V1 _S1
|
|
#define JIT_V2 _S2
|
|
_S0, _S1, _S2, _S3, _S4, _S5, _S6, _S7,
|
|
_ZERO, _K0, _K1, _RA,
|
|
_GP,
|
|
_SP, _FP,
|
|
#define JIT_RA0 _A0
|
|
#if NEW_ABI
|
|
_A7, _A6, _A5, _A4,
|
|
#endif
|
|
_A3, _A2, _A1, _A0,
|
|
#define JIT_F0 _F0
|
|
#define JIT_F1 _F2
|
|
#define JIT_F2 _F4
|
|
#define JIT_F3 _F6
|
|
#define JIT_F4 _F8
|
|
#define JIT_F5 _F10
|
|
_F0, _F2, _F4, _F6, _F8, _F10,
|
|
/* callee save float registers */
|
|
#if !NEW_ABI
|
|
_F16, _F18,
|
|
#endif
|
|
_F20, _F22, _F24, _F26, _F28, _F30,
|
|
#define JIT_FA0 _F12
|
|
#if NEW_ABI
|
|
_F19, _F18, _F17, _F16, _F15, _F14, _F13, _F12,
|
|
#else
|
|
_F14, _F12,
|
|
#endif
|
|
#define JIT_NOREG _NOREG
|
|
_NOREG,
|
|
} jit_reg_t;
|
|
|
|
typedef jit_int64_t jit_regset_t;
|
|
|
|
#endif /* _jit_mips_h */
|