mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-21 19:20:21 +02:00
New aarch64 port built on the Foundation v8 emulator.
* include/lightning/jit_aarch64.h, lib/jit_aarch64-cpu.c, lib/jit_aarch64-fpu.c, lib/jit_aarch64.c: New files implementing the new aarch64 port, as a new architecture, not as an expansion of the existing armv[4-7] port. * check/lightning.c: Add aarch64 support and a small change to recognize character constants as immediate values. * check/float.tst: Add aarch64 preprocessor conditionals to select proper expected value when converting [+-]Inf and NaN to integer. * include/lightning/jit_arm.h, lib/jit_arm.c: Minor changes to better match the new aarch64 files. * configure.ac, include/lightning.h, include/lightning/Makefile.am, include/lightning/jit_private.h, lib/Makefile.am, lib/lightning.c: Minor adjustments for the aarch64 port.
This commit is contained in:
pcpa
parent
4f9b9d9b2e
commit
89a0b7a10b
15 changed files with 4498 additions and 31 deletions
23
ChangeLog
23
ChangeLog
|
|
@ -1,3 +1,26 @@
|
|||
2013-07-16 Paulo Andrade <pcpa@gnu.org>
|
||||
|
||||
* include/lightning/jit_aarch64.h, lib/jit_aarch64-cpu.c,
|
||||
lib/jit_aarch64-fpu.c, lib/jit_aarch64.c: New files
|
||||
implementing the new aarch64 port, as a new architecture,
|
||||
not as an expansion of the existing armv[4-7] port.
|
||||
|
||||
* check/lightning.c: Add aarch64 support and a small
|
||||
change to recognize character constants as immediate
|
||||
values.
|
||||
|
||||
* check/float.tst: Add aarch64 preprocessor conditionals
|
||||
to select proper expected value when converting [+-]Inf
|
||||
and NaN to integer.
|
||||
|
||||
* include/lightning/jit_arm.h, lib/jit_arm.c: Minor changes
|
||||
to better match the new aarch64 files.
|
||||
|
||||
* configure.ac, include/lightning.h,
|
||||
include/lightning/Makefile.am, include/lightning/jit_private.h,
|
||||
lib/Makefile.am, lib/lightning.c: Minor adjustments
|
||||
for the aarch64 port.
|
||||
|
||||
2013-07-08 Paulo Andrade <pcpa@gnu.org>
|
||||
|
||||
* NEWS, THANKS, configure.ac, doc/version.texi: Update for
|
||||
|
|
|
|||
|
|
@ -16,12 +16,12 @@ ok:
|
|||
|
||||
#if __mips__ || __sparc__ || __hppa__
|
||||
# define wnan x7f
|
||||
#elif __arm__
|
||||
#elif __arm__ || __aarch64__
|
||||
# define wnan 0
|
||||
#else
|
||||
# define wnan x80
|
||||
#endif
|
||||
#if __mips__ || __arm__ || __ppc__ || __sparc__ || __hppa__
|
||||
#if __mips__ || __arm__ || __ppc__ || __sparc__ || __hppa__ || __aarch64__
|
||||
# define wpinf x7f
|
||||
#else
|
||||
# define wpinf x80
|
||||
|
|
|
|||
|
|
@ -874,6 +874,10 @@ get_imm(void)
|
|||
ungetch(ch);
|
||||
value = get_int(skip_none);
|
||||
break;
|
||||
case '\'':
|
||||
character();
|
||||
value = parser.value.i;
|
||||
break;
|
||||
case '$':
|
||||
switch (expression()) {
|
||||
case tok_int:
|
||||
|
|
@ -1329,6 +1333,10 @@ movi(void)
|
|||
ungetch(ch);
|
||||
value = (void *)(long)get_uint(skip_none);
|
||||
break;
|
||||
case '\'':
|
||||
character();
|
||||
value = (void *)parser.value.i;
|
||||
break;
|
||||
case '$':
|
||||
switch (expression()) {
|
||||
case tok_int:
|
||||
|
|
@ -4042,6 +4050,11 @@ main(int argc, char *argv[])
|
|||
opt_short += snprintf(cmdline + opt_short,
|
||||
sizeof(cmdline) - opt_short,
|
||||
" -D__sgi__=1");
|
||||
#endif
|
||||
#if defined(__aarch64__)
|
||||
opt_short += snprintf(cmdline + opt_short,
|
||||
sizeof(cmdline) - opt_short,
|
||||
" -D__aarch64__=1");
|
||||
#endif
|
||||
if ((parser.fp = popen(cmdline, "r")) == NULL)
|
||||
error("cannot execute %s", cmdline);
|
||||
|
|
|
|||
16
configure.ac
16
configure.ac
|
|
@ -99,15 +99,17 @@ case "$target_cpu" in
|
|||
*sparc*) cpu=sparc ;;
|
||||
ia64) cpu=ia64 ;;
|
||||
hppa*) cpu=hppa ;;
|
||||
aarch64) cpu=aarch64 ;;
|
||||
*) ;;
|
||||
esac
|
||||
AM_CONDITIONAL(cpu_arm, [test cpu-$cpu = cpu-arm])
|
||||
AM_CONDITIONAL(cpu_mips, [test cpu-$cpu = cpu-mips])
|
||||
AM_CONDITIONAL(cpu_ppc, [test cpu-$cpu = cpu-ppc])
|
||||
AM_CONDITIONAL(cpu_sparc, [test cpu-$cpu = cpu-sparc])
|
||||
AM_CONDITIONAL(cpu_x86, [test cpu-$cpu = cpu-x86])
|
||||
AM_CONDITIONAL(cpu_ia64, [test cpu-$cpu = cpu-ia64])
|
||||
AM_CONDITIONAL(cpu_hppa, [test cpu-$cpu = cpu-hppa])
|
||||
AM_CONDITIONAL(cpu_arm, [test cpu-$cpu = cpu-arm])
|
||||
AM_CONDITIONAL(cpu_mips, [test cpu-$cpu = cpu-mips])
|
||||
AM_CONDITIONAL(cpu_ppc, [test cpu-$cpu = cpu-ppc])
|
||||
AM_CONDITIONAL(cpu_sparc, [test cpu-$cpu = cpu-sparc])
|
||||
AM_CONDITIONAL(cpu_x86, [test cpu-$cpu = cpu-x86])
|
||||
AM_CONDITIONAL(cpu_ia64, [test cpu-$cpu = cpu-ia64])
|
||||
AM_CONDITIONAL(cpu_hppa, [test cpu-$cpu = cpu-hppa])
|
||||
AM_CONDITIONAL(cpu_aarch64, [test cpu-$cpu = cpu-aarch64])
|
||||
|
||||
# Test x87 if both, x87 and sse2 available
|
||||
ac_cv_test_x86_x87=
|
||||
|
|
|
|||
|
|
@ -124,6 +124,8 @@ typedef jit_int32_t jit_fpr_t;
|
|||
# include <lightning/jit_ia64.h>
|
||||
#elif defined(__hppa__)
|
||||
# include <lightning/jit_hppa.h>
|
||||
#elif defined(__aarch64__)
|
||||
# include <lightning/jit_aarch64.h>
|
||||
#endif
|
||||
|
||||
#define jit_flag_node 0x00000001 /* patch node not absolute */
|
||||
|
|
|
|||
|
|
@ -45,3 +45,7 @@ if cpu_hppa
|
|||
lightning_include_HEADERS = \
|
||||
jit_hppa.h
|
||||
endif
|
||||
if cpu_aarch64
|
||||
lightning_include_HEADERS = \
|
||||
jit_aarch64.h
|
||||
endif
|
||||
|
|
|
|||
80
include/lightning/jit_aarch64.h
Normal file
80
include/lightning/jit_aarch64.h
Normal file
|
|
@ -0,0 +1,80 @@
|
|||
/*
|
||||
* Copyright (C) 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_aarch64_h
|
||||
#define _jit_aarch64_h
|
||||
|
||||
#define JIT_HASH_CONSTS 0
|
||||
#define JIT_NUM_OPERANDS 3
|
||||
|
||||
/*
|
||||
* Types
|
||||
*/
|
||||
#define JIT_FP _R29
|
||||
typedef enum {
|
||||
#define jit_arg_reg_p(i) ((i) >= 0 && (i) < 8)
|
||||
#define jit_r(i) (_R9 + (i))
|
||||
#define jit_r_num() 7
|
||||
#define jit_v(i) (_R19 + (i))
|
||||
#define jit_v_num() 10
|
||||
#define jit_arg_f_reg_p(i) ((i) >= 0 && (i) < 8)
|
||||
#define jit_f(i) (_V8 + (i))
|
||||
#define jit_f_num() 8
|
||||
#define JIT_R0 _R9
|
||||
#define JIT_R1 _R10
|
||||
#define JIT_R2 _R11
|
||||
_R8, /* indirect result */
|
||||
_R18, /* platform register */
|
||||
_R17, /* IP1 */
|
||||
_R16, /* IP0 */
|
||||
_R9, _R10, _R11, _R12, /* temporaries */
|
||||
_R13, _R14, _R15,
|
||||
#define JIT_V0 _R19
|
||||
#define JIT_V1 _R20
|
||||
#define JIT_V2 _R21
|
||||
_R19, _R20, _R21, _R22, /* callee save */
|
||||
_R23, _R24, _R25, _R26,
|
||||
_R27, _R28,
|
||||
_SP, /* stack pointer */
|
||||
_R30, /* link register */
|
||||
_R29, /* frame pointer */
|
||||
#define JIT_RA0 _R0
|
||||
_R7, _R6, _R5, _R4,
|
||||
_R3, _R2, _R1, _R0,
|
||||
#define JIT_F0 _V8
|
||||
#define JIT_F1 _V9
|
||||
#define JIT_F2 _V10
|
||||
#define JIT_F3 _V11
|
||||
#define JIT_F4 _V12
|
||||
#define JIT_F5 _V13
|
||||
_V31, _V30, _V29, _V28, /* temporaries */
|
||||
_V27, _V26, _V25, _V24,
|
||||
_V23, _V22, _V21, _V20,
|
||||
_V19, _V18, _V17, _V16,
|
||||
/* callee save */
|
||||
_V8, _V9, _V10, _V11,
|
||||
_V12, _V13, _V14, _V15,
|
||||
#define JIT_FA0 _V0
|
||||
_V7, _V6, _V5, _V4, /* arguments */
|
||||
_V3, _V2, _V1, _V0,
|
||||
_NOREG,
|
||||
#define JIT_NOREG _NOREG
|
||||
} jit_reg_t;
|
||||
|
||||
typedef jit_int64_t jit_regset_t;
|
||||
|
||||
#endif /* _jit_aarch64_h */
|
||||
|
|
@ -56,9 +56,6 @@ typedef enum {
|
|||
_R14, /* lr - link register */
|
||||
_R15, /* pc - program counter */
|
||||
#define JIT_RA0 _R0
|
||||
#define JIT_RA1 _R1
|
||||
#define JIT_RA2 _R2
|
||||
#define JIT_RA3 _R3
|
||||
_R3, /* r3 - argument/result */
|
||||
_R2, /* r2 - argument/result */
|
||||
_R1, /* r1 - argument/result */
|
||||
|
|
@ -69,8 +66,6 @@ typedef enum {
|
|||
#define JIT_F3 (jit_hardfp_p() ? _D11 : _D3)
|
||||
#define JIT_F4 (jit_hardfp_p() ? _D12 : _D4)
|
||||
#define JIT_F5 (jit_hardfp_p() ? _D13 : _D5)
|
||||
#define JIT_F6 (jit_hardfp_p() ? _D14 : _D6)
|
||||
#define JIT_F7 (jit_hardfp_p() ? _D15 : _D7)
|
||||
_S16, _D8 = _S16, _Q4 = _D8,
|
||||
_S17,
|
||||
_S18, _D9 = _S18,
|
||||
|
|
@ -88,13 +83,6 @@ typedef enum {
|
|||
_S30, _D15 = _S30,
|
||||
_S31,
|
||||
#define JIT_FA0 _D0
|
||||
#define JIT_FA1 _D1
|
||||
#define JIT_FA2 _D2
|
||||
#define JIT_FA3 _D3
|
||||
#define JIT_FA4 _D4
|
||||
#define JIT_FA5 _D5
|
||||
#define JIT_FA6 _D6
|
||||
#define JIT_FA7 _D7
|
||||
_S15,
|
||||
_S14, _D7 = _S14,
|
||||
_S13,
|
||||
|
|
|
|||
|
|
@ -81,6 +81,10 @@
|
|||
# define JIT_SP _R30
|
||||
# define JIT_RET _R28
|
||||
# define JIT_FRET _F4
|
||||
#elif defined(__aarch64__)
|
||||
# define JIT_SP _SP
|
||||
# define JIT_RET _R0
|
||||
# define JIT_FRET _V0
|
||||
#endif
|
||||
|
||||
#define jit_size(vector) (sizeof(vector) / sizeof((vector)[0]))
|
||||
|
|
|
|||
|
|
@ -24,6 +24,9 @@ liblightning_la_SOURCES = \
|
|||
lightning.c
|
||||
|
||||
EXTRA_DIST = \
|
||||
jit_aarch64.c \
|
||||
jit_aarch64-cpu.c \
|
||||
jit_aarch64-fpu.c \
|
||||
jit_arm.c \
|
||||
jit_arm-cpu.c \
|
||||
jit_arm-swf.c \
|
||||
|
|
|
|||
2272
lib/jit_aarch64-cpu.c
Normal file
2272
lib/jit_aarch64-cpu.c
Normal file
File diff suppressed because it is too large
Load diff
847
lib/jit_aarch64-fpu.c
Normal file
847
lib/jit_aarch64-fpu.c
Normal file
|
|
@ -0,0 +1,847 @@
|
|||
/*
|
||||
* Copyright (C) 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
|
||||
*/
|
||||
|
||||
#if PROTO
|
||||
# define A64_SCVTF 0x1e220000
|
||||
# define A64_FMOVWV 0x1e260000
|
||||
# define A64_FMOVVW 0x1e270000
|
||||
# define A64_FMOVXV 0x9e260000
|
||||
# define A64_FMOVVX 0x9e270000
|
||||
# define A64_FCVTZS 0x1e380000
|
||||
# define A64_FCMPE 0x1e202010
|
||||
# define A64_FMOV 0x1e204000
|
||||
# define A64_FABS 0x1e20c000
|
||||
# define A64_FNEG 0x1e214000
|
||||
# define A64_FSQRT 0x1e21c000
|
||||
# define A64_FCVTS 0x1e224000
|
||||
# define A64_FCVTD 0x1e22c000
|
||||
# define A64_FMUL 0x1e200800
|
||||
# define A64_FDIV 0x1e201800
|
||||
# define A64_FADD 0x1e202800
|
||||
# define A64_FSUB 0x1e203800
|
||||
# define FCMPES(Rn,Rm) os_vv(A64_FCMPE,0,Rn,Rm)
|
||||
# define FCMPED(Rn,Rm) os_vv(A64_FCMPE,1,Rn,Rm)
|
||||
# define FMOVS(Rd,Rn) osvv_(A64_FMOV,0,Rd,Rn)
|
||||
# define FMOVD(Rd,Rn) osvv_(A64_FMOV,1,Rd,Rn)
|
||||
# define FMOVWS(Rd,Rn) osvv_(A64_FMOVWV,0,Rd,Rn)
|
||||
# define FMOVSW(Rd,Rn) osvv_(A64_FMOVVW,0,Rd,Rn)
|
||||
# define FMOVXD(Rd,Rn) osvv_(A64_FMOVXV,1,Rd,Rn)
|
||||
# define FMOVDX(Rd,Rn) osvv_(A64_FMOVVX,1,Rd,Rn)
|
||||
# define FCVT_SD(Rd,Rn) osvv_(A64_FCVTS,1,Rd,Rn)
|
||||
# define FCVT_DS(Rd,Rn) osvv_(A64_FCVTD,0,Rd,Rn)
|
||||
# define SCVTFS(Rd,Rn) osvv_(A64_SCVTF|XS,0,Rd,Rn)
|
||||
# define SCVTFD(Rd,Rn) osvv_(A64_SCVTF|XS,1,Rd,Rn)
|
||||
# define FCVTSZ_WS(Rd,Rn) osvv_(A64_FCVTZS,0,Rd,Rn)
|
||||
# define FCVTSZ_WD(Rd,Rn) osvv_(A64_FCVTZS,1,Rd,Rn)
|
||||
# define FCVTSZ_XS(Rd,Rn) osvv_(A64_FCVTZS|XS,0,Rd,Rn)
|
||||
# define FCVTSZ_XD(Rd,Rn) osvv_(A64_FCVTZS|XS,1,Rd,Rn)
|
||||
# define FABSS(Rd,Rn) osvv_(A64_FABS,0,Rd,Rn)
|
||||
# define FABSD(Rd,Rn) osvv_(A64_FABS,1,Rd,Rn)
|
||||
# define FNEGS(Rd,Rn) osvv_(A64_FNEG,0,Rd,Rn)
|
||||
# define FNEGD(Rd,Rn) osvv_(A64_FNEG,1,Rd,Rn)
|
||||
# define FSQRTS(Rd,Rn) osvv_(A64_FSQRT,0,Rd,Rn)
|
||||
# define FSQRTD(Rd,Rn) osvv_(A64_FSQRT,1,Rd,Rn)
|
||||
# define FADDS(Rd,Rn,Rm) osvvv(A64_FADD,0,Rd,Rn,Rm)
|
||||
# define FADDD(Rd,Rn,Rm) osvvv(A64_FADD,1,Rd,Rn,Rm)
|
||||
# define FSUBS(Rd,Rn,Rm) osvvv(A64_FSUB,0,Rd,Rn,Rm)
|
||||
# define FSUBD(Rd,Rn,Rm) osvvv(A64_FSUB,1,Rd,Rn,Rm)
|
||||
# define FMULS(Rd,Rn,Rm) osvvv(A64_FMUL,0,Rd,Rn,Rm)
|
||||
# define FMULD(Rd,Rn,Rm) osvvv(A64_FMUL,1,Rd,Rn,Rm)
|
||||
# define FDIVS(Rd,Rn,Rm) osvvv(A64_FDIV,0,Rd,Rn,Rm)
|
||||
# define FDIVD(Rd,Rn,Rm) osvvv(A64_FDIV,1,Rd,Rn,Rm)
|
||||
# define osvvv(Op,Sz,Rd,Rn,Rm) _osvvv(_jit,Op,Sz,Rd,Rn,Rm)
|
||||
static void _osvvv(jit_state_t*,jit_int32_t,jit_int32_t,
|
||||
jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define osvv_(Op,Sz,Rd,Rn) _osvv_(_jit,Op,Sz,Rd,Rn)
|
||||
static void _osvv_(jit_state_t*,jit_int32_t,
|
||||
jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define os_vv(Op,Sz,Rn,Rm) _os_vv(_jit,Op,Sz,Rn,Rm)
|
||||
static void _os_vv(jit_state_t*,jit_int32_t,
|
||||
jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define truncr_f_i(r0,r1) _truncr_f_i(_jit,r0,r1)
|
||||
static void _truncr_f_i(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define truncr_f_l(r0,r1) FCVTSZ_XS(r0,r1)
|
||||
# define truncr_d_i(r0,r1) _truncr_d_i(_jit,r0,r1)
|
||||
static void _truncr_d_i(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define truncr_d_l(r0,r1) FCVTSZ_XD(r0,r1)
|
||||
# define addr_f(r0,r1,r2) FADDS(r0,r1,r2)
|
||||
# define addi_f(r0,r1,i0) _addi_f(_jit,r0,r1,i0)
|
||||
static void _addi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define subr_f(r0,r1,r2) FSUBS(r0,r1,r2)
|
||||
# define subi_f(r0,r1,i0) _subi_f(_jit,r0,r1,i0)
|
||||
static void _subi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define mulr_f(r0,r1,r2) FMULS(r0,r1,r2)
|
||||
# define muli_f(r0,r1,i0) _muli_f(_jit,r0,r1,i0)
|
||||
static void _muli_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define divr_f(r0,r1,r2) FDIVS(r0,r1,r2)
|
||||
# define divi_f(r0,r1,i0) _divi_f(_jit,r0,r1,i0)
|
||||
static void _divi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define absr_f(r0,r1) FABSS(r0,r1)
|
||||
# define negr_f(r0,r1) FNEGS(r0,r1)
|
||||
# define sqrtr_f(r0,r1) FSQRTS(r0,r1)
|
||||
# define extr_f(r0,r1) SCVTFS(r0,r1)
|
||||
# define ldr_f(r0,r1) _ldr_f(_jit,r0,r1)
|
||||
static void _ldr_f(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define ldi_f(r0,i0) _ldi_f(_jit,r0,i0)
|
||||
static void _ldi_f(jit_state_t*,jit_int32_t,jit_word_t);
|
||||
# define ldxr_f(r0,r1,r2) _ldxr_f(_jit,r0,r1,r2)
|
||||
static void _ldxr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define ldxi_f(r0,r1,i0) _ldxi_f(_jit,r0,r1,i0)
|
||||
static void _ldxi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_word_t);
|
||||
# define str_f(r0,r1) _str_f(_jit,r0,r1)
|
||||
static void _str_f(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define sti_f(i0,r0) _sti_f(_jit,i0,r0)
|
||||
static void _sti_f(jit_state_t*,jit_word_t,jit_int32_t);
|
||||
# define stxr_f(r0,r1,r2) _stxr_f(_jit,r0,r1,r2)
|
||||
static void _stxr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define stxi_f(i0,r0,r1) _stxi_f(_jit,i0,r0,r1)
|
||||
static void _stxi_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
# define movr_f(r0,r1) _movr_f(_jit,r0,r1)
|
||||
static void _movr_f(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define movi_f(r0,i0) _movi_f(_jit,r0,i0)
|
||||
static void _movi_f(jit_state_t*,jit_int32_t,jit_float32_t);
|
||||
# define extr_d_f(r0,r1) FCVT_SD(r0,r1)
|
||||
# define fccr(cc,r0,r1,r2) _fccr(_jit,cc,r0,r1,r2)
|
||||
static void _fccr(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define fcci(cc,r0,r1,i0) _fcci(_jit,cc,r0,r1,i0)
|
||||
static void _fcci(jit_state_t*,
|
||||
jit_int32_t,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define ltr_f(r0,r1,r2) fccr(CC_MI,r0,r1,r2)
|
||||
# define lti_f(r0,r1,i0) fcci(CC_MI,r0,r1,i0)
|
||||
# define ler_f(r0,r1,r2) fccr(CC_LS,r0,r1,r2)
|
||||
# define lei_f(r0,r1,i0) fcci(CC_LS,r0,r1,i0)
|
||||
# define eqr_f(r0,r1,r2) fccr(CC_EQ,r0,r1,r2)
|
||||
# define eqi_f(r0,r1,i0) fcci(CC_EQ,r0,r1,i0)
|
||||
# define ger_f(r0,r1,r2) fccr(CC_GE,r0,r1,r2)
|
||||
# define gei_f(r0,r1,i0) fcci(CC_GE,r0,r1,i0)
|
||||
# define gtr_f(r0,r1,r2) fccr(CC_GT,r0,r1,r2)
|
||||
# define gti_f(r0,r1,i0) fcci(CC_GT,r0,r1,i0)
|
||||
# define ner_f(r0,r1,r2) fccr(CC_NE,r0,r1,r2)
|
||||
# define nei_f(r0,r1,i0) fcci(CC_NE,r0,r1,i0)
|
||||
# define unltr_f(r0,r1,r2) fccr(CC_LT,r0,r1,r2)
|
||||
# define unlti_f(r0,r1,i0) fcci(CC_LT,r0,r1,i0)
|
||||
# define unler_f(r0,r1,r2) fccr(CC_LE,r0,r1,r2)
|
||||
# define unlei_f(r0,r1,i0) fcci(CC_LE,r0,r1,i0)
|
||||
# define uneqr_f(r0,r1,r2) _uneqr_f(_jit,r0,r1,r2)
|
||||
static void _uneqr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define uneqi_f(r0,r1,i0) _uneqi_f(_jit,r0,r1,i0)
|
||||
static void _uneqi_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define unger_f(r0,r1,r2) fccr(CC_PL,r0,r1,r2)
|
||||
# define ungei_f(r0,r1,i0) fcci(CC_PL,r0,r1,i0)
|
||||
# define ungtr_f(r0,r1,r2) fccr(CC_HI,r0,r1,r2)
|
||||
# define ungti_f(r0,r1,i0) fcci(CC_HI,r0,r1,i0)
|
||||
# define ltgtr_f(r0,r1,r2) _ltgtr_f(_jit,r0,r1,r2)
|
||||
static void _ltgtr_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define ltgti_f(r0,r1,i0) _ltgti_f(_jit,r0,r1,i0)
|
||||
static void _ltgti_f(jit_state_t*,jit_int32_t,jit_int32_t,jit_float32_t);
|
||||
# define ordr_f(r0,r1,r2) fccr(CC_VC,r0,r1,r2)
|
||||
# define ordi_f(r0,r1,i0) fcci(CC_VC,r0,r1,i0)
|
||||
# define unordr_f(r0,r1,r2) fccr(CC_VS,r0,r1,r2)
|
||||
# define unordi_f(r0,r1,i0) fcci(CC_VS,r0,r1,i0)
|
||||
#define fbccr(cc,i0,r0,r1) _fbccr(_jit,cc,i0,r0,r1)
|
||||
static jit_word_t
|
||||
_fbccr(jit_state_t*,jit_int32_t,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
#define fbcci(cc,i0,r0,i1) _fbcci(_jit,cc,i0,r0,i1)
|
||||
static jit_word_t
|
||||
_fbcci(jit_state_t*,jit_int32_t,jit_word_t,jit_int32_t,jit_float32_t);
|
||||
# define bltr_f(i0,r0,r1) fbccr(BCC_MI,i0,r0,r1)
|
||||
# define blti_f(i0,r0,i1) fbcci(BCC_MI,i0,r0,i1)
|
||||
# define bler_f(i0,r0,r1) fbccr(BCC_LS,i0,r0,r1)
|
||||
# define blei_f(i0,r0,i1) fbcci(BCC_LS,i0,r0,i1)
|
||||
# define beqr_f(i0,r0,r1) fbccr(BCC_EQ,i0,r0,r1)
|
||||
# define beqi_f(i0,r0,i1) fbcci(BCC_EQ,i0,r0,i1)
|
||||
# define bger_f(i0,r0,r1) fbccr(BCC_GE,i0,r0,r1)
|
||||
# define bgei_f(i0,r0,i1) fbcci(BCC_GE,i0,r0,i1)
|
||||
# define bgtr_f(i0,r0,r1) fbccr(BCC_GT,i0,r0,r1)
|
||||
# define bgti_f(i0,r0,i1) fbcci(BCC_GT,i0,r0,i1)
|
||||
# define bner_f(i0,r0,r1) fbccr(BCC_NE,i0,r0,r1)
|
||||
# define bnei_f(i0,r0,i1) fbcci(BCC_NE,i0,r0,i1)
|
||||
# define bunltr_f(i0,r0,r1) fbccr(BCC_LT,i0,r0,r1)
|
||||
# define bunlti_f(i0,r0,i1) fbcci(BCC_LT,i0,r0,i1)
|
||||
# define bunler_f(i0,r0,r1) fbccr(BCC_LE,i0,r0,r1)
|
||||
# define bunlei_f(i0,r0,i1) fbcci(BCC_LE,i0,r0,i1)
|
||||
# define buneqr_f(i0,r0,r1) _buneqr_f(_jit,i0,r0,r1)
|
||||
static jit_word_t _buneqr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
# define buneqi_f(i0,r0,i1) _buneqi_f(_jit,i0,r0,i1)
|
||||
static jit_word_t _buneqi_f(jit_state_t*,jit_word_t,jit_int32_t,jit_float32_t);
|
||||
# define bunger_f(i0,r0,r1) fbccr(BCC_PL,i0,r0,r1)
|
||||
# define bungei_f(i0,r0,i1) fbcci(BCC_PL,i0,r0,i1)
|
||||
# define bungtr_f(i0,r0,r1) fbccr(BCC_HI,i0,r0,r1)
|
||||
# define bungti_f(i0,r0,i1) fbcci(BCC_HI,i0,r0,i1)
|
||||
# define bltgtr_f(i0,r0,r1) _bltgtr_f(_jit,i0,r0,r1)
|
||||
static jit_word_t _bltgtr_f(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
# define bltgti_f(i0,r0,i1) _bltgti_f(_jit,i0,r0,i1)
|
||||
static jit_word_t _bltgti_f(jit_state_t*,jit_word_t,jit_int32_t,jit_float32_t);
|
||||
# define bordr_f(i0,r0,r1) fbccr(BCC_VC,i0,r0,r1)
|
||||
# define bordi_f(i0,r0,i1) fbcci(BCC_VC,i0,r0,i1)
|
||||
# define bunordr_f(i0,r0,r1) fbccr(BCC_VS,i0,r0,r1)
|
||||
# define bunordi_f(i0,r0,i1) fbcci(BCC_VS,i0,r0,i1)
|
||||
# define addr_d(r0,r1,r2) FADDD(r0,r1,r2)
|
||||
# define addi_d(r0,r1,i0) _addi_d(_jit,r0,r1,i0)
|
||||
static void _addi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define subr_d(r0,r1,r2) FSUBD(r0,r1,r2)
|
||||
# define subi_d(r0,r1,i0) _subi_d(_jit,r0,r1,i0)
|
||||
static void _subi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define mulr_d(r0,r1,r2) FMULD(r0,r1,r2)
|
||||
# define muli_d(r0,r1,i0) _muli_d(_jit,r0,r1,i0)
|
||||
static void _muli_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define divr_d(r0,r1,r2) FDIVD(r0,r1,r2)
|
||||
# define divi_d(r0,r1,i0) _divi_d(_jit,r0,r1,i0)
|
||||
static void _divi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define absr_d(r0,r1) FABSD(r0,r1)
|
||||
# define negr_d(r0,r1) FNEGD(r0,r1)
|
||||
# define sqrtr_d(r0,r1) FSQRTD(r0,r1)
|
||||
# define extr_d(r0,r1) SCVTFD(r0,r1)
|
||||
# define ldr_d(r0,r1) _ldr_d(_jit,r0,r1)
|
||||
static void _ldr_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define ldi_d(r0,i0) _ldi_d(_jit,r0,i0)
|
||||
static void _ldi_d(jit_state_t*,jit_int32_t,jit_word_t);
|
||||
# define ldxr_d(r0,r1,r2) _ldxr_d(_jit,r0,r1,r2)
|
||||
static void _ldxr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define ldxi_d(r0,r1,i0) _ldxi_d(_jit,r0,r1,i0)
|
||||
static void _ldxi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_word_t);
|
||||
# define str_d(r0,r1) _str_d(_jit,r0,r1)
|
||||
static void _str_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define sti_d(i0,r0) _sti_d(_jit,i0,r0)
|
||||
static void _sti_d(jit_state_t*,jit_word_t,jit_int32_t);
|
||||
# define stxr_d(r0,r1,r2) _stxr_d(_jit,r0,r1,r2)
|
||||
static void _stxr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define stxi_d(i0,r0,r1) _stxi_d(_jit,i0,r0,r1)
|
||||
static void _stxi_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
# define movr_d(r0,r1) _movr_d(_jit,r0,r1)
|
||||
static void _movr_d(jit_state_t*,jit_int32_t,jit_int32_t);
|
||||
# define movi_d(r0,i0) _movi_d(_jit,r0,i0)
|
||||
static void _movi_d(jit_state_t*,jit_int32_t,jit_float64_t);
|
||||
# define extr_f_d(r0,r1) FCVT_DS(r0,r1)
|
||||
# define dccr(cc,r0,r1,r2) _dccr(_jit,cc,r0,r1,r2)
|
||||
static void _dccr(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define dcci(cc,r0,r1,i0) _dcci(_jit,cc,r0,r1,i0)
|
||||
static void _dcci(jit_state_t*,
|
||||
jit_int32_t,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define ltr_d(r0,r1,r2) dccr(CC_MI,r0,r1,r2)
|
||||
# define lti_d(r0,r1,i0) dcci(CC_MI,r0,r1,i0)
|
||||
# define ler_d(r0,r1,r2) dccr(CC_LS,r0,r1,r2)
|
||||
# define lei_d(r0,r1,i0) dcci(CC_LS,r0,r1,i0)
|
||||
# define eqr_d(r0,r1,r2) dccr(CC_EQ,r0,r1,r2)
|
||||
# define eqi_d(r0,r1,i0) dcci(CC_EQ,r0,r1,i0)
|
||||
# define ger_d(r0,r1,r2) dccr(CC_GE,r0,r1,r2)
|
||||
# define gei_d(r0,r1,i0) dcci(CC_GE,r0,r1,i0)
|
||||
# define gtr_d(r0,r1,r2) dccr(CC_GT,r0,r1,r2)
|
||||
# define gti_d(r0,r1,i0) dcci(CC_GT,r0,r1,i0)
|
||||
# define ner_d(r0,r1,r2) dccr(CC_NE,r0,r1,r2)
|
||||
# define nei_d(r0,r1,i0) dcci(CC_NE,r0,r1,i0)
|
||||
# define unltr_d(r0,r1,r2) dccr(CC_LT,r0,r1,r2)
|
||||
# define unlti_d(r0,r1,i0) dcci(CC_LT,r0,r1,i0)
|
||||
# define unler_d(r0,r1,r2) dccr(CC_LE,r0,r1,r2)
|
||||
# define unlei_d(r0,r1,i0) dcci(CC_LE,r0,r1,i0)
|
||||
# define uneqr_d(r0,r1,r2) _uneqr_d(_jit,r0,r1,r2)
|
||||
static void _uneqr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define uneqi_d(r0,r1,i0) _uneqi_d(_jit,r0,r1,i0)
|
||||
static void _uneqi_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define unger_d(r0,r1,r2) dccr(CC_PL,r0,r1,r2)
|
||||
# define ungei_d(r0,r1,i0) dcci(CC_PL,r0,r1,i0)
|
||||
# define ungtr_d(r0,r1,r2) dccr(CC_HI,r0,r1,r2)
|
||||
# define ungti_d(r0,r1,i0) dcci(CC_HI,r0,r1,i0)
|
||||
# define ltgtr_d(r0,r1,r2) _ltgtr_d(_jit,r0,r1,r2)
|
||||
static void _ltgtr_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_int32_t);
|
||||
# define ltgti_d(r0,r1,i0) _ltgti_d(_jit,r0,r1,i0)
|
||||
static void _ltgti_d(jit_state_t*,jit_int32_t,jit_int32_t,jit_float64_t);
|
||||
# define ordr_d(r0,r1,r2) dccr(CC_VC,r0,r1,r2)
|
||||
# define ordi_d(r0,r1,i0) dcci(CC_VC,r0,r1,i0)
|
||||
# define unordr_d(r0,r1,r2) dccr(CC_VS,r0,r1,r2)
|
||||
# define unordi_d(r0,r1,i0) dcci(CC_VS,r0,r1,i0)
|
||||
#define dbccr(cc,i0,r0,r1) _dbccr(_jit,cc,i0,r0,r1)
|
||||
static jit_word_t
|
||||
_dbccr(jit_state_t*,jit_int32_t,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
#define dbcci(cc,i0,r0,i1) _dbcci(_jit,cc,i0,r0,i1)
|
||||
static jit_word_t
|
||||
_dbcci(jit_state_t*,jit_int32_t,jit_word_t,jit_int32_t,jit_float64_t);
|
||||
# define bltr_d(i0,r0,r1) dbccr(BCC_MI,i0,r0,r1)
|
||||
# define blti_d(i0,r0,i1) dbcci(BCC_MI,i0,r0,i1)
|
||||
# define bler_d(i0,r0,r1) dbccr(BCC_LS,i0,r0,r1)
|
||||
# define blei_d(i0,r0,i1) dbcci(BCC_LS,i0,r0,i1)
|
||||
# define beqr_d(i0,r0,r1) dbccr(BCC_EQ,i0,r0,r1)
|
||||
# define beqi_d(i0,r0,i1) dbcci(BCC_EQ,i0,r0,i1)
|
||||
# define bger_d(i0,r0,r1) dbccr(BCC_GE,i0,r0,r1)
|
||||
# define bgei_d(i0,r0,i1) dbcci(BCC_GE,i0,r0,i1)
|
||||
# define bgtr_d(i0,r0,r1) dbccr(BCC_GT,i0,r0,r1)
|
||||
# define bgti_d(i0,r0,i1) dbcci(BCC_GT,i0,r0,i1)
|
||||
# define bner_d(i0,r0,r1) dbccr(BCC_NE,i0,r0,r1)
|
||||
# define bnei_d(i0,r0,i1) dbcci(BCC_NE,i0,r0,i1)
|
||||
# define bunltr_d(i0,r0,r1) dbccr(BCC_LT,i0,r0,r1)
|
||||
# define bunlti_d(i0,r0,i1) dbcci(BCC_LT,i0,r0,i1)
|
||||
# define bunler_d(i0,r0,r1) dbccr(BCC_LE,i0,r0,r1)
|
||||
# define bunlei_d(i0,r0,i1) dbcci(BCC_LE,i0,r0,i1)
|
||||
# define buneqr_d(i0,r0,r1) _buneqr_d(_jit,i0,r0,r1)
|
||||
static jit_word_t _buneqr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
# define buneqi_d(i0,r0,i1) _buneqi_d(_jit,i0,r0,i1)
|
||||
static jit_word_t _buneqi_d(jit_state_t*,jit_word_t,jit_int32_t,jit_float64_t);
|
||||
# define bunger_d(i0,r0,r1) dbccr(BCC_PL,i0,r0,r1)
|
||||
# define bungei_d(i0,r0,i1) dbcci(BCC_PL,i0,r0,i1)
|
||||
# define bungtr_d(i0,r0,r1) dbccr(BCC_HI,i0,r0,r1)
|
||||
# define bungti_d(i0,r0,i1) dbcci(BCC_HI,i0,r0,i1)
|
||||
# define bltgtr_d(i0,r0,r1) _bltgtr_d(_jit,i0,r0,r1)
|
||||
static jit_word_t _bltgtr_d(jit_state_t*,jit_word_t,jit_int32_t,jit_int32_t);
|
||||
# define bltgti_d(i0,r0,i1) _bltgti_d(_jit,i0,r0,i1)
|
||||
static jit_word_t _bltgti_d(jit_state_t*,jit_word_t,jit_int32_t,jit_float64_t);
|
||||
# define bordr_d(i0,r0,r1) dbccr(BCC_VC,i0,r0,r1)
|
||||
# define bordi_d(i0,r0,i1) dbcci(BCC_VC,i0,r0,i1)
|
||||
# define bunordr_d(i0,r0,r1) dbccr(BCC_VS,i0,r0,r1)
|
||||
# define bunordi_d(i0,r0,i1) dbcci(BCC_VS,i0,r0,i1)
|
||||
#endif
|
||||
|
||||
#if CODE
|
||||
static void
|
||||
_osvvv(jit_state_t *_jit, jit_int32_t Op, jit_int32_t Sz,
|
||||
jit_int32_t Rd, jit_int32_t Rn, jit_int32_t Rm)
|
||||
{
|
||||
instr_t i;
|
||||
assert(!(Rd & ~0x1f));
|
||||
assert(!(Rn & ~0x1f));
|
||||
assert(!(Rm & ~0x1f));
|
||||
assert(!(Sz & ~0x3));
|
||||
assert(!(Op & ~0xffe0fc00));
|
||||
i.w = Op;
|
||||
i.size.b = Sz;
|
||||
i.Rd.b = Rd;
|
||||
i.Rn.b = Rn;
|
||||
i.Rm.b = Rm;
|
||||
ii(i.w);
|
||||
}
|
||||
|
||||
static void
|
||||
_osvv_(jit_state_t *_jit, jit_int32_t Op,
|
||||
jit_int32_t Sz, jit_int32_t Rd, jit_int32_t Rn)
|
||||
{
|
||||
instr_t i;
|
||||
assert(!(Rd & ~0x1f));
|
||||
assert(!(Rn & ~0x1f));
|
||||
assert(!(Sz & ~0x3));
|
||||
assert(!(Op & ~0xfffffc00));
|
||||
i.w = Op;
|
||||
i.size.b = Sz;
|
||||
i.Rd.b = Rd;
|
||||
i.Rn.b = Rn;
|
||||
ii(i.w);
|
||||
}
|
||||
|
||||
static void
|
||||
_os_vv(jit_state_t *_jit, jit_int32_t Op,
|
||||
jit_int32_t Sz, jit_int32_t Rn, jit_int32_t Rm)
|
||||
{
|
||||
instr_t i;
|
||||
assert(!(Rn & ~0x1f));
|
||||
assert(!(Rm & ~0x1f));
|
||||
assert(!(Sz & ~0x3));
|
||||
assert(!(Op & ~0xff20fc1f));
|
||||
i.w = Op;
|
||||
i.size.b = Sz;
|
||||
i.Rn.b = Rn;
|
||||
i.Rm.b = Rm;
|
||||
ii(i.w);
|
||||
}
|
||||
|
||||
#define fopi(name) \
|
||||
static void \
|
||||
_##name##i_f(jit_state_t *_jit, \
|
||||
jit_int32_t r0, jit_int32_t r1, jit_float32_t i0) \
|
||||
{ \
|
||||
jit_int32_t reg = jit_get_reg(jit_class_fpr); \
|
||||
movi_f(rn(reg), i0); \
|
||||
name##r_f(r0, r1, rn(reg)); \
|
||||
jit_unget_reg(reg); \
|
||||
}
|
||||
#define dopi(name) \
|
||||
static void \
|
||||
_##name##i_d(jit_state_t *_jit, \
|
||||
jit_int32_t r0, jit_int32_t r1, jit_float64_t i0) \
|
||||
{ \
|
||||
jit_int32_t reg = jit_get_reg(jit_class_fpr); \
|
||||
movi_d(rn(reg), i0); \
|
||||
name##r_d(r0, r1, rn(reg)); \
|
||||
jit_unget_reg(reg); \
|
||||
}
|
||||
#define fbopi(name) \
|
||||
static jit_word_t \
|
||||
_b##name##i_f(jit_state_t *_jit, \
|
||||
jit_word_t i0, jit_int32_t r0, jit_float32_t i1) \
|
||||
{ \
|
||||
jit_word_t word; \
|
||||
jit_int32_t reg = jit_get_reg(jit_class_fpr); \
|
||||
movi_f(rn(reg), i1); \
|
||||
word = b##name##r_f(i0, r0, rn(reg)); \
|
||||
jit_unget_reg(reg); \
|
||||
return (word); \
|
||||
}
|
||||
#define dbopi(name) \
|
||||
static jit_word_t \
|
||||
_b##name##i_d(jit_state_t *_jit, \
|
||||
jit_word_t i0, jit_int32_t r0, jit_float64_t i1) \
|
||||
{ \
|
||||
jit_word_t word; \
|
||||
jit_int32_t reg = jit_get_reg(jit_class_fpr); \
|
||||
movi_d(rn(reg), i1); \
|
||||
word = b##name##r_d(i0, r0, rn(reg)); \
|
||||
jit_unget_reg(reg); \
|
||||
return (word); \
|
||||
}
|
||||
|
||||
static void
|
||||
_truncr_f_i(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
FCVTSZ_WS(r0, r1);
|
||||
extr_i(r0, r0);
|
||||
}
|
||||
|
||||
static void
|
||||
_truncr_d_i(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
FCVTSZ_WD(r0, r1);
|
||||
extr_i(r0, r0);
|
||||
}
|
||||
|
||||
fopi(add)
|
||||
fopi(sub)
|
||||
fopi(mul)
|
||||
fopi(div)
|
||||
|
||||
static void
|
||||
_ldr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldr_i(rn(reg), r1);
|
||||
FMOVSW(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_ldi_f(jit_state_t *_jit, jit_int32_t r0, jit_word_t i0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldi_i(rn(reg), i0);
|
||||
FMOVSW(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_ldxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldxr_i(rn(reg), r1, r2);
|
||||
FMOVSW(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_ldxi_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldxi_i(rn(reg), r1, i0);
|
||||
FMOVSW(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_str_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVWS(rn(reg), r1);
|
||||
str_i(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_sti_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVWS(rn(reg), r0);
|
||||
sti_i(i0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_stxr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVWS(rn(reg), r2);
|
||||
stxr_i(r0, r1, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_stxi_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVWS(rn(reg), r1);
|
||||
stxi_i(i0, r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_movr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
if (r0 != r1)
|
||||
FMOVS(r0, r1);
|
||||
}
|
||||
|
||||
static void
|
||||
_movi_f(jit_state_t *_jit, jit_int32_t r0, jit_float32_t i0)
|
||||
{
|
||||
union {
|
||||
jit_int32_t i;
|
||||
jit_float32_t f;
|
||||
} u;
|
||||
jit_int32_t reg;
|
||||
u.f = i0;
|
||||
if (u.i == 0)
|
||||
FMOVSW(r0, WZR_REGNO);
|
||||
else {
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
/* prevent generating unused top 32 bits */
|
||||
movi(rn(reg), ((jit_word_t)u.i) & 0xffffffff);
|
||||
FMOVSW(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
_fccr(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
FCMPES(r1, r2);
|
||||
CSET(r0, cc);
|
||||
}
|
||||
|
||||
static void
|
||||
_fcci(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_int32_t r0, jit_int32_t r1, jit_float32_t i0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_fpr);
|
||||
movi_f(rn(reg), i0);
|
||||
fccr(cc, r0, r1, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_uneqr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_word_t w;
|
||||
FCMPES(r1, r2);
|
||||
CSET(r0, CC_VS);
|
||||
w = _jit->pc.w;
|
||||
B_C(BCC_VS, 1); /* unordered satisfies condition */
|
||||
CSET(r0, CC_EQ); /* equal satisfies condition */
|
||||
patch_at(w, _jit->pc.w);
|
||||
}
|
||||
fopi(uneq)
|
||||
|
||||
static void
|
||||
_ltgtr_f(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_word_t w;
|
||||
FCMPES(r1, r2);
|
||||
CSET(r0, CC_VC); /* set to 1 if ordered */
|
||||
w = _jit->pc.w;
|
||||
B_C(BCC_VS, 1); /* unordered does not satisfy condition */
|
||||
CSET(r0, CC_NE); /* set to 1 if not equal */
|
||||
patch_at(w, _jit->pc.w);
|
||||
}
|
||||
fopi(ltgt)
|
||||
|
||||
static jit_word_t
|
||||
_fbccr(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_word_t w, d;
|
||||
FCMPES(r0, r1);
|
||||
w = _jit->pc.w;
|
||||
d = (i0 - w) >> 2;
|
||||
B_C(cc, d);
|
||||
return (w);
|
||||
}
|
||||
|
||||
static jit_word_t
|
||||
_fbcci(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_word_t i0, jit_int32_t r0, jit_float32_t i1)
|
||||
{
|
||||
jit_word_t w;
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_fpr);
|
||||
movi_f(rn(reg), i1);
|
||||
w = fbccr(cc, i0, r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
return (w);
|
||||
}
|
||||
|
||||
static jit_word_t
|
||||
_buneqr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_word_t u, v, w;
|
||||
FCMPES(r0, r1);
|
||||
u = _jit->pc.w;
|
||||
B_C(BCC_VS, 1); /* unordered satisfies condition */
|
||||
v = _jit->pc.w;
|
||||
B_C(BCC_NE, 1); /* not equal (or unordered) does not satisfy */
|
||||
patch_at(u, _jit->pc.w);
|
||||
w = _jit->pc.w;
|
||||
B((i0 - w) >> 2);
|
||||
patch_at(v, _jit->pc.w);
|
||||
return (w);
|
||||
}
|
||||
fbopi(uneq)
|
||||
|
||||
static jit_word_t
|
||||
_bltgtr_f(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_word_t u, v, w;
|
||||
FCMPES(r0, r1);
|
||||
u = _jit->pc.w;
|
||||
B_C(BCC_VS, 2); /* jump over if unordered */
|
||||
v = _jit->pc.w;
|
||||
B_C(BCC_EQ, 1); /* jump over if equal */
|
||||
w = _jit->pc.w;
|
||||
B((i0 - w) >> 2);
|
||||
patch_at(u, _jit->pc.w);
|
||||
patch_at(v, _jit->pc.w);
|
||||
return (w);
|
||||
}
|
||||
fbopi(ltgt)
|
||||
|
||||
dopi(add)
|
||||
dopi(sub)
|
||||
dopi(mul)
|
||||
dopi(div)
|
||||
|
||||
static void
|
||||
_ldr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldr_l(rn(reg), r1);
|
||||
FMOVDX(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_ldi_d(jit_state_t *_jit, jit_int32_t r0, jit_word_t i0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldi_l(rn(reg), i0);
|
||||
FMOVDX(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_ldxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldxr_l(rn(reg), r1, r2);
|
||||
FMOVDX(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_ldxi_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_word_t i0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
ldxi_l(rn(reg), r1, i0);
|
||||
FMOVDX(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_str_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVXD(rn(reg), r1);
|
||||
str_l(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_sti_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVXD(rn(reg), r0);
|
||||
sti_l(i0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_stxr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVXD(rn(reg), r2);
|
||||
stxr_l(r0, r1, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_stxi_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
FMOVXD(rn(reg), r1);
|
||||
stxi_l(i0, r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_movr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
if (r0 != r1)
|
||||
FMOVD(r0, r1);
|
||||
}
|
||||
|
||||
static void
|
||||
_movi_d(jit_state_t *_jit, jit_int32_t r0, jit_float64_t i0)
|
||||
{
|
||||
union {
|
||||
jit_int64_t l;
|
||||
jit_float64_t d;
|
||||
} u;
|
||||
jit_int32_t reg;
|
||||
u.d = i0;
|
||||
if (u.l == 0)
|
||||
FMOVDX(r0, XZR_REGNO);
|
||||
else {
|
||||
reg = jit_get_reg(jit_class_gpr);
|
||||
movi(rn(reg), u.l);
|
||||
FMOVDX(r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
}
|
||||
|
||||
static void
|
||||
_dccr(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
FCMPED(r1, r2);
|
||||
CSET(r0, cc);
|
||||
}
|
||||
|
||||
static void
|
||||
_dcci(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_int32_t r0, jit_int32_t r1, jit_float64_t i0)
|
||||
{
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_fpr);
|
||||
movi_d(rn(reg), i0);
|
||||
dccr(cc, r0, r1, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
}
|
||||
|
||||
static void
|
||||
_uneqr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_word_t w;
|
||||
FCMPED(r1, r2);
|
||||
CSET(r0, CC_VS);
|
||||
w = _jit->pc.w;
|
||||
B_C(BCC_VS, 1); /* unordered satisfies condition */
|
||||
CSET(r0, CC_EQ); /* equal satisfies condition */
|
||||
patch_at(w, _jit->pc.w);
|
||||
}
|
||||
dopi(uneq)
|
||||
|
||||
static void
|
||||
_ltgtr_d(jit_state_t *_jit, jit_int32_t r0, jit_int32_t r1, jit_int32_t r2)
|
||||
{
|
||||
jit_word_t w;
|
||||
FCMPED(r1, r2);
|
||||
CSET(r0, CC_VC); /* set to 1 if ordered */
|
||||
w = _jit->pc.w;
|
||||
B_C(BCC_VS, 1); /* unordered does not satisfy condition */
|
||||
CSET(r0, CC_NE); /* set to 1 if not equal */
|
||||
patch_at(w, _jit->pc.w);
|
||||
}
|
||||
dopi(ltgt)
|
||||
|
||||
static jit_word_t
|
||||
_dbccr(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_word_t w, d;
|
||||
FCMPED(r0, r1);
|
||||
w = _jit->pc.w;
|
||||
d = (i0 - w) >> 2;
|
||||
B_C(cc, d);
|
||||
return (w);
|
||||
}
|
||||
|
||||
static jit_word_t
|
||||
_dbcci(jit_state_t *_jit, jit_int32_t cc,
|
||||
jit_word_t i0, jit_int32_t r0, jit_float64_t i1)
|
||||
{
|
||||
jit_word_t w;
|
||||
jit_int32_t reg;
|
||||
reg = jit_get_reg(jit_class_fpr);
|
||||
movi_d(rn(reg), i1);
|
||||
w = dbccr(cc, i0, r0, rn(reg));
|
||||
jit_unget_reg(reg);
|
||||
return (w);
|
||||
}
|
||||
|
||||
static jit_word_t
|
||||
_buneqr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_word_t u, v, w;
|
||||
FCMPED(r0, r1);
|
||||
u = _jit->pc.w;
|
||||
B_C(BCC_VS, 1); /* unordered satisfies condition */
|
||||
v = _jit->pc.w;
|
||||
B_C(BCC_NE, 1); /* not equal (or unordered) does not satisfy */
|
||||
patch_at(u, _jit->pc.w);
|
||||
w = _jit->pc.w;
|
||||
B((i0 - w) >> 2);
|
||||
patch_at(v, _jit->pc.w);
|
||||
return (w);
|
||||
}
|
||||
dbopi(uneq)
|
||||
|
||||
static jit_word_t
|
||||
_bltgtr_d(jit_state_t *_jit, jit_word_t i0, jit_int32_t r0, jit_int32_t r1)
|
||||
{
|
||||
jit_word_t u, v, w;
|
||||
FCMPED(r0, r1);
|
||||
u = _jit->pc.w;
|
||||
B_C(BCC_VS, 2); /* jump over if unordered */
|
||||
v = _jit->pc.w;
|
||||
B_C(BCC_EQ, 1); /* jump over if equal */
|
||||
w = _jit->pc.w;
|
||||
B((i0 - w) >> 2);
|
||||
patch_at(u, _jit->pc.w);
|
||||
patch_at(v, _jit->pc.w);
|
||||
return (w);
|
||||
}
|
||||
dbopi(ltgt)
|
||||
#endif
|
||||
1237
lib/jit_aarch64.c
Normal file
1237
lib/jit_aarch64.c
Normal file
File diff suppressed because it is too large
Load diff
|
|
@ -347,7 +347,6 @@ _jit_reti_d(jit_state_t *_jit, jit_float64_t u)
|
|||
jit_ret();
|
||||
}
|
||||
|
||||
/* must be called internally only */
|
||||
void
|
||||
_jit_epilog(jit_state_t *_jit)
|
||||
{
|
||||
|
|
@ -361,7 +360,6 @@ jit_node_t *
|
|||
_jit_arg(jit_state_t *_jit)
|
||||
{
|
||||
jit_int32_t offset;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (_jitc->function->self.argi < 4)
|
||||
offset = _jitc->function->self.argi++;
|
||||
|
|
@ -382,7 +380,6 @@ jit_node_t *
|
|||
_jit_arg_f(jit_state_t *_jit)
|
||||
{
|
||||
jit_int32_t offset;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (jit_cpu.abi && !(_jitc->function->self.call & jit_call_varargs)) {
|
||||
if (_jitc->function->self.argf < 16) {
|
||||
|
|
@ -412,7 +409,6 @@ jit_node_t *
|
|||
_jit_arg_d(jit_state_t *_jit)
|
||||
{
|
||||
jit_int32_t offset;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (jit_cpu.abi && !(_jitc->function->self.call & jit_call_varargs)) {
|
||||
if (_jitc->function->self.argf < 15) {
|
||||
|
|
@ -557,7 +553,6 @@ void
|
|||
_jit_pushargi(jit_state_t *_jit, jit_word_t u)
|
||||
{
|
||||
jit_int32_t regno;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (_jitc->function->call.argi < 4) {
|
||||
jit_movi(JIT_RA0 - _jitc->function->call.argi, u);
|
||||
|
|
@ -598,7 +593,6 @@ void
|
|||
_jit_pushargi_f(jit_state_t *_jit, jit_float32_t u)
|
||||
{
|
||||
jit_int32_t regno;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (jit_cpu.abi && !(_jitc->function->call.call & jit_call_varargs)) {
|
||||
if (_jitc->function->call.argf < 16) {
|
||||
|
|
@ -662,7 +656,6 @@ void
|
|||
_jit_pushargi_d(jit_state_t *_jit, jit_float64_t u)
|
||||
{
|
||||
jit_int32_t regno;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (jit_cpu.abi && !(_jitc->function->call.call & jit_call_varargs)) {
|
||||
if (_jitc->function->call.argf < 15) {
|
||||
|
|
@ -697,7 +690,6 @@ jit_bool_t
|
|||
_jit_regarg_p(jit_state_t *_jit, jit_node_t *node, jit_int32_t regno)
|
||||
{
|
||||
jit_int32_t spec;
|
||||
|
||||
spec = jit_class(_rvs[regno].spec);
|
||||
if (spec & jit_class_arg) {
|
||||
regno = JIT_RA0 - regno;
|
||||
|
|
@ -717,7 +709,6 @@ void
|
|||
_jit_finishr(jit_state_t *_jit, jit_int32_t r0)
|
||||
{
|
||||
jit_node_t *node;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (_jitc->function->self.alen < _jitc->function->call.size)
|
||||
_jitc->function->self.alen = _jitc->function->call.size;
|
||||
|
|
@ -733,7 +724,6 @@ jit_node_t *
|
|||
_jit_finishi(jit_state_t *_jit, jit_pointer_t i0)
|
||||
{
|
||||
jit_node_t *node;
|
||||
|
||||
assert(_jitc->function);
|
||||
if (_jitc->function->self.alen < _jitc->function->call.size)
|
||||
_jitc->function->self.alen = _jitc->function->call.size;
|
||||
|
|
|
|||
|
|
@ -2911,4 +2911,6 @@ _patch_register(jit_state_t *_jit, jit_node_t *node, jit_node_t *link,
|
|||
# include "jit_ia64.c"
|
||||
#elif defined(__hppa__)
|
||||
# include "jit_hppa.c"
|
||||
#elif defined(__aarch64__)
|
||||
# include "jit_aarch64.c"
|
||||
#endif
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue