[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 23/34: Remove software floating-point ARMv7 support; ARM
|
From: |
Andy Wingo |
|
Subject: |
[Guile-commits] 23/34: Remove software floating-point ARMv7 support; ARMv7 test env |
|
Date: |
Mon, 20 May 2019 09:55:54 -0400 (EDT) |
wingo pushed a commit to branch master
in repository guile.
commit eaf702765d9a55397b5db9bd2b8c4b356af9195d
Author: Andy Wingo <address@hidden>
Date: Thu May 16 16:44:39 2019 +0200
Remove software floating-point ARMv7 support; ARMv7 test env
---
lightening/arm-swf.c | 2640 --------------------------------------------------
lightening/arm.c | 4 +-
tests/Makefile | 14 +-
3 files changed, 11 insertions(+), 2647 deletions(-)
diff --git a/lightening/arm-swf.c b/lightening/arm-swf.c
deleted file mode 100644
index 2b8bfa1..0000000
--- a/lightening/arm-swf.c
+++ /dev/null
@@ -1,2640 +0,0 @@
-/*
- * Copyright (C) 2012-2018 Free Software Foundation, Inc.
- *
- * This file is part of GNU lightning.
- *
- * GNU lightning is free software; you can redistribute it and/or modify it
- * under the terms of the GNU Lesser General Public License as published
- * by the Free Software Foundation; either version 3, or (at your option)
- * any later version.
- *
- * GNU lightning 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 Lesser General Public
- * License for more details.
- *
- * Authors:
- * Paulo Cesar Pereira de Andrade
- */
-
-#if PROTO
-/* match vfpv3 result */
-#define NAN_TO_INT_IS_ZERO 1
-extern float sqrtf(float);
-extern double sqrt(double);
-extern float __addsf3(float, float);
-extern double __adddf3(double, double);
-extern float __aeabi_fsub(float, float);
-extern double __aeabi_dsub(double, double);
-extern float __aeabi_fmul(float, float);
-extern double __aeabi_dmul(double, double);
-extern float __aeabi_fdiv(float, float);
-extern double __aeabi_ddiv(double, double);
-extern float __aeabi_i2f(int);
-extern double __aeabi_i2d(int);
-extern float __aeabi_d2f(double);
-extern double __aeabi_f2d(float);
-extern int __aeabi_f2iz(float);
-extern int __aeabi_d2iz(double);
-extern int __aeabi_fcmplt(float, float);
-extern int __aeabi_dcmplt(double, double);
-extern int __aeabi_fcmple(float, float);
-extern int __aeabi_dcmple(double, double);
-extern int __aeabi_fcmpeq(float, float);
-extern int __aeabi_dcmpeq(double, double);
-extern int __aeabi_fcmpge(float, float);
-extern int __aeabi_dcmpge(double, double);
-extern int __aeabi_fcmpgt(float, float);
-extern int __aeabi_dcmpgt(double, double);
-extern int __aeabi_fcmpun(float, float);
-extern int __aeabi_dcmpun(double, double);
-# define swf_ff(i0,r0,r1) _swf_ff(_jit,i0,r0,r1)
-static void
-_swf_ff(jit_state_t*,float(*)(float),int32_t,int32_t) maybe_unused;
-# define swf_dd(i0,r0,r1) _swf_dd(_jit,i0,r0,r1)
-static void
-_swf_dd(jit_state_t*,double(*)(double),int32_t,int32_t) maybe_unused;
-# define swf_fff(i0,r0,r1,r2) _swf_fff(_jit,i0,r0,r1,r2)
-static void _swf_fff(jit_state_t*,float(*)(float,float),
- int32_t,int32_t,int32_t);
-# define swf_ddd(i0,r0,r1,r2) _swf_ddd(_jit,i0,r0,r1,r2)
-static void _swf_ddd(jit_state_t*,double(*)(double,double),
- int32_t,int32_t,int32_t);
-# define swf_fff_(i0,r0,r1,i1) _swf_fff_(_jit,i0,r0,r1,i1)
-static void _swf_fff_(jit_state_t*,float(*)(float,float),
- int32_t,int32_t,jit_float32_t);
-# define swf_ddd_(i0,r0,r1,i1) _swf_ddd_(_jit,i0,r0,r1,i1)
-static void _swf_ddd_(jit_state_t*,double(*)(double,double),
- int32_t,int32_t,jit_float64_t);
-# define swf_iff(i0,r0,r1,r2) _swf_iff(_jit,i0,r0,r1,r2)
-static void _swf_iff(jit_state_t*,int(*)(float,float),
- int32_t,int32_t,int32_t);
-# define swf_idd(i0,r0,r1,r2) _swf_idd(_jit,i0,r0,r1,r2)
-static void _swf_idd(jit_state_t*,int(*)(double,double),
- int32_t,int32_t,int32_t);
-# define swf_iff_(i0,r0,r1,r2) _swf_iff_(_jit,i0,r0,r1,r2)
-static void _swf_iff_(jit_state_t*,int(*)(float,float),
- int32_t,int32_t,jit_float32_t);
-# define swf_idd_(i0,r0,r1,r2) _swf_idd_(_jit,i0,r0,r1,r2)
-static void _swf_idd_(jit_state_t*,int(*)(double,double),
- int32_t,int32_t,jit_float64_t);
-# define swf_iunff(i0,r0,r1,r2) _swf_iunff(_jit,i0,r0,r1,r2)
-static void _swf_iunff(jit_state_t*,int(*)(float,float),
- int32_t,int32_t,int32_t);
-# define swf_iundd(i0,r0,r1,r2) _swf_iundd(_jit,i0,r0,r1,r2)
-static void _swf_iundd(jit_state_t*,int(*)(double,double),
- int32_t,int32_t,int32_t);
-# define swf_iunff_(i0,r0,r1,i1) _swf_iunff_(_jit,i0,r0,r1,i1)
-static void _swf_iunff_(jit_state_t*,int(*)(float,float),
- int32_t,int32_t,jit_float32_t);
-# define swf_iundd_(i0,r0,r1,i1) _swf_iundd_(_jit,i0,r0,r1,i1)
-static void _swf_iundd_(jit_state_t*,int(*)(double,double),
- int32_t,int32_t,jit_float64_t);
-# define swf_bff(i0,cc,i1,r0,r1) _swf_bff(_jit,i0,cc,i1,r0,r1)
-static jit_word_t _swf_bff(jit_state_t*,int(*)(float,float),int,
- jit_word_t,int32_t,int32_t);
-# define swf_bdd(i0,cc,i1,r0,r1) _swf_bdd(_jit,i0,cc,i1,r0,r1)
-static jit_word_t _swf_bdd(jit_state_t*,int(*)(double,double),int,
- jit_word_t,int32_t,int32_t);
-# define swf_bff_(i0,cc,i1,r0,i2) _swf_bff_(_jit,i0,cc,i1,r0,i2)
-static jit_word_t _swf_bff_(jit_state_t*,int(*)(float,float),int,
- jit_word_t,int32_t,jit_float32_t);
-# define swf_bdd_(i0,cc,i1,r0,i2) _swf_bdd_(_jit,i0,cc,i1,r0,i2)
-static jit_word_t _swf_bdd_(jit_state_t*,int(*)(double,double),int,
- jit_word_t,int32_t,jit_float64_t);
-# define swf_bunff(eq,i0,r0,r1) _swf_bunff(_jit,eq,i0,r0,r1)
-static jit_word_t _swf_bunff(jit_state_t*,int,
- jit_word_t,int32_t,int32_t);
-# define swf_bundd(eq,i0,r0,r1) _swf_bundd(_jit,eq,i0,r0,r1)
-static jit_word_t _swf_bundd(jit_state_t*,int,
- jit_word_t,int32_t,int32_t);
-# define swf_bunff_(eq,i0,r0,i1) _swf_bunff_(_jit,eq,i0,r0,i1)
-static jit_word_t _swf_bunff_(jit_state_t*,int,
- jit_word_t,int32_t,jit_float32_t);
-# define swf_bundd_(eq,i0,r0,i1) _swf_bundd_(_jit,eq,i0,r0,i1)
-static jit_word_t _swf_bundd_(jit_state_t*,int,
- jit_word_t,int32_t,jit_float64_t);
-# define swf_extr_f(r0,r1) _swf_extr_f(_jit,r0,r1)
-static void _swf_extr_f(jit_state_t*,int32_t,int32_t);
-# define swf_extr_d(r0,r1) _swf_extr_d(_jit,r0,r1)
-static void _swf_extr_d(jit_state_t*,int32_t,int32_t);
-# define swf_extr_d_f(r0,r1) _swf_extr_d_f(_jit,r0,r1)
-static void _swf_extr_d_f(jit_state_t*,int32_t,int32_t);
-# define swf_extr_f_d(r0,r1) _swf_extr_f_d(_jit,r0,r1)
-static void _swf_extr_f_d(jit_state_t*,int32_t,int32_t);
-# define swf_truncr_f_i(r0,r1) _swf_truncr_f_i(_jit,r0,r1)
-static void _swf_truncr_f_i(jit_state_t*,int32_t,int32_t);
-# define swf_truncr_d_i(r0,r1) _swf_truncr_d_i(_jit,r0,r1)
-static void _swf_truncr_d_i(jit_state_t*,int32_t,int32_t);
-# define swf_movr_f(r0,r1) _swf_movr_f(_jit,r0,r1)
-static void _swf_movr_f(jit_state_t*,int32_t,int32_t);
-# define swf_movr_d(r0,r1) _swf_movr_d(_jit,r0,r1)
-static void _swf_movr_d(jit_state_t*,int32_t,int32_t);
-# define swf_movi_f(r0,i0) _swf_movi_f(_jit,r0,i0)
-static void _swf_movi_f(jit_state_t*,int32_t,jit_float32_t);
-# define swf_movi_d(r0,i0) _swf_movi_d(_jit,r0,i0)
-static void _swf_movi_d(jit_state_t*,int32_t,jit_float64_t);
-# define swf_absr_f(r0,r1) _swf_absr_f(_jit,r0,r1)
-static void _swf_absr_f(jit_state_t*,int32_t,int32_t);
-# define swf_absr_d(r0,r1) _swf_absr_d(_jit,r0,r1)
-static void _swf_absr_d(jit_state_t*,int32_t,int32_t);
-# define swf_negr_f(r0,r1) _swf_negr_f(_jit,r0,r1)
-static void _swf_negr_f(jit_state_t*,int32_t,int32_t);
-# define swf_negr_d(r0,r1) _swf_negr_d(_jit,r0,r1)
-static void _swf_negr_d(jit_state_t*,int32_t,int32_t);
-# define swf_sqrtr_f(r0,r1) swf_ff(sqrtf,r0,r1)
-# define swf_sqrtr_d(r0,r1) swf_dd(sqrt,r0,r1)
-# define swf_addr_f(r0,r1,r2) swf_fff(__addsf3,r0,r1,r2)
-# define swf_addi_f(r0,r1,i0) swf_fff_(__addsf3,r0,r1,i0)
-# define swf_addr_d(r0,r1,r2) swf_ddd(__adddf3,r0,r1,r2)
-# define swf_addi_d(r0,r1,i0) swf_ddd_(__adddf3,r0,r1,i0)
-# define swf_subr_f(r0,r1,r2) swf_fff(__aeabi_fsub,r0,r1,r2)
-# define swf_subi_f(r0,r1,i0) swf_fff_(__aeabi_fsub,r0,r1,i0)
-# define swf_subr_d(r0,r1,r2) swf_ddd(__aeabi_dsub,r0,r1,r2)
-# define swf_subi_d(r0,r1,i0) swf_ddd_(__aeabi_dsub,r0,r1,i0)
-# define swf_rsbr_f(r0, r1, r2) swf_subr_f(r0, r2, r1)
-# define swf_rsbi_f(r0, r1, i0) _swf_rsbi_f(_jit, r0, r1, i0)
-static void _swf_rsbi_f(jit_state_t*,int32_t,int32_t,jit_float32_t);
-# define swf_rsbr_d(r0, r1, r2) swf_subr_d(r0, r2, r1)
-# define swf_rsbi_d(r0, r1, i0) _swf_rsbi_d(_jit, r0, r1, i0)
-static void _swf_rsbi_d(jit_state_t*,int32_t,int32_t,jit_float64_t);
-# define swf_mulr_f(r0,r1,r2) swf_fff(__aeabi_fmul,r0,r1,r2)
-# define swf_muli_f(r0,r1,i0) swf_fff_(__aeabi_fmul,r0,r1,i0)
-# define swf_mulr_d(r0,r1,r2) swf_ddd(__aeabi_dmul,r0,r1,r2)
-# define swf_muli_d(r0,r1,i0) swf_ddd_(__aeabi_dmul,r0,r1,i0)
-# define swf_divr_f(r0,r1,r2) swf_fff(__aeabi_fdiv,r0,r1,r2)
-# define swf_divi_f(r0,r1,i0) swf_fff_(__aeabi_fdiv,r0,r1,i0)
-# define swf_divr_d(r0,r1,r2) swf_ddd(__aeabi_ddiv,r0,r1,r2)
-# define swf_divi_d(r0,r1,i0) swf_ddd_(__aeabi_ddiv,r0,r1,i0)
-# define swf_ltr_f(r0,r1,r2) swf_iff(__aeabi_fcmplt,r0,r1,r2)
-# define swf_lti_f(r0,r1,i0) swf_iff_(__aeabi_fcmplt,r0,r1,i0)
-# define swf_ltr_d(r0,r1,r2) swf_idd(__aeabi_dcmplt,r0,r1,r2)
-# define swf_lti_d(r0,r1,i0) swf_idd_(__aeabi_dcmplt,r0,r1,i0)
-# define swf_ler_f(r0,r1,r2) swf_iff(__aeabi_fcmple,r0,r1,r2)
-# define swf_lei_f(r0,r1,i0) swf_iff_(__aeabi_fcmple,r0,r1,i0)
-# define swf_ler_d(r0,r1,r2) swf_idd(__aeabi_dcmple,r0,r1,r2)
-# define swf_lei_d(r0,r1,i0) swf_idd_(__aeabi_dcmple,r0,r1,i0)
-# define swf_eqr_f(r0,r1,r2) swf_iff(__aeabi_fcmpeq,r0,r1,r2)
-# define swf_eqi_f(r0,r1,i0) swf_iff_(__aeabi_fcmpeq,r0,r1,i0)
-# define swf_eqr_d(r0,r1,r2) swf_idd(__aeabi_dcmpeq,r0,r1,r2)
-# define swf_eqi_d(r0,r1,i0) swf_idd_(__aeabi_dcmpeq,r0,r1,i0)
-# define swf_ger_f(r0,r1,r2) swf_iff(__aeabi_fcmpge,r0,r1,r2)
-# define swf_gei_f(r0,r1,i0) swf_iff_(__aeabi_fcmpge,r0,r1,i0)
-# define swf_ger_d(r0,r1,r2) swf_idd(__aeabi_dcmpge,r0,r1,r2)
-# define swf_gei_d(r0,r1,i0) swf_idd_(__aeabi_dcmpge,r0,r1,i0)
-# define swf_gtr_f(r0,r1,r2) swf_iff(__aeabi_fcmpgt,r0,r1,r2)
-# define swf_gti_f(r0,r1,i0) swf_iff_(__aeabi_fcmpgt,r0,r1,i0)
-# define swf_gtr_d(r0,r1,r2) swf_idd(__aeabi_dcmpgt,r0,r1,r2)
-# define swf_gti_d(r0,r1,i0) swf_idd_(__aeabi_dcmpgt,r0,r1,i0)
-# define swf_ner_f(r0,r1,r2) _swf_ner_f(_jit,r0,r1,r2)
-static void _swf_ner_f(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_nei_f(r0,r1,i0) _swf_nei_f(_jit,r0,r1,i0)
-static void _swf_nei_f(jit_state_t*,int32_t,int32_t,jit_float32_t);
-# define swf_ner_d(r0,r1,r2) _swf_ner_d(_jit,r0,r1,r2)
-static void _swf_ner_d(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_nei_d(r0,r1,i0) _swf_nei_d(_jit,r0,r1,i0)
-static void _swf_nei_d(jit_state_t*,int32_t,int32_t,jit_float64_t);
-# define swf_unltr_f(r0,r1,r2)
swf_iunff(__aeabi_fcmplt,r0,r1,r2)
-# define swf_unlti_f(r0,r1,i0)
swf_iunff_(__aeabi_fcmplt,r0,r1,i0)
-# define swf_unltr_d(r0,r1,r2)
swf_iundd(__aeabi_dcmplt,r0,r1,r2)
-# define swf_unlti_d(r0,r1,i0)
swf_iundd_(__aeabi_dcmplt,r0,r1,i0)
-# define swf_unler_f(r0,r1,r2)
swf_iunff(__aeabi_fcmple,r0,r1,r2)
-# define swf_unlei_f(r0,r1,i0)
swf_iunff_(__aeabi_fcmple,r0,r1,i0)
-# define swf_unler_d(r0,r1,r2)
swf_iundd(__aeabi_dcmple,r0,r1,r2)
-# define swf_unlei_d(r0,r1,i0)
swf_iundd_(__aeabi_dcmple,r0,r1,i0)
-# define swf_uneqr_f(r0,r1,r2)
swf_iunff(__aeabi_fcmpeq,r0,r1,r2)
-# define swf_uneqi_f(r0,r1,i0)
swf_iunff_(__aeabi_fcmpeq,r0,r1,i0)
-# define swf_uneqr_d(r0,r1,r2)
swf_iundd(__aeabi_dcmpeq,r0,r1,r2)
-# define swf_uneqi_d(r0,r1,i0)
swf_iundd_(__aeabi_dcmpeq,r0,r1,i0)
-# define swf_unger_f(r0,r1,r2)
swf_iunff(__aeabi_fcmpge,r0,r1,r2)
-# define swf_ungei_f(r0,r1,i0)
swf_iunff_(__aeabi_fcmpge,r0,r1,i0)
-# define swf_unger_d(r0,r1,r2)
swf_iundd(__aeabi_dcmpge,r0,r1,r2)
-# define swf_ungei_d(r0,r1,i0)
swf_iundd_(__aeabi_dcmpge,r0,r1,i0)
-# define swf_ungtr_f(r0,r1,r2)
swf_iunff(__aeabi_fcmpgt,r0,r1,r2)
-# define swf_ungti_f(r0,r1,i0)
swf_iunff_(__aeabi_fcmpgt,r0,r1,i0)
-# define swf_ungtr_d(r0,r1,r2)
swf_iundd(__aeabi_dcmpgt,r0,r1,r2)
-# define swf_ungti_d(r0,r1,i0)
swf_iundd_(__aeabi_dcmpgt,r0,r1,i0)
-# define swf_ltgtr_f(r0,r1,r2) _swf_ltgtr_f(_jit,r0,r1,r2)
-static void _swf_ltgtr_f(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_ltgti_f(r0,r1,i0) _swf_ltgti_f(_jit,r0,r1,i0)
-static void _swf_ltgti_f(jit_state_t*,int32_t,int32_t,jit_float32_t);
-# define swf_ltgtr_d(r0,r1,r2) _swf_ltgtr_d(_jit,r0,r1,r2)
-static void _swf_ltgtr_d(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_ltgti_d(r0,r1,i0) _swf_ltgti_d(_jit,r0,r1,i0)
-static void _swf_ltgti_d(jit_state_t*,int32_t,int32_t,jit_float64_t);
-# define swf_ordr_f(r0,r1,r2) _swf_ordr_f(_jit,r0,r1,r2)
-static void _swf_ordr_f(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_ordi_f(r0,r1,i0) _swf_ordi_f(_jit,r0,r1,i0)
-static void _swf_ordi_f(jit_state_t*,int32_t,int32_t,jit_float32_t);
-# define swf_ordr_d(r0,r1,r2) _swf_ordr_d(_jit,r0,r1,r2)
-static void _swf_ordr_d(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_ordi_d(r0,r1,i0) _swf_ordi_d(_jit,r0,r1,i0)
-static void _swf_ordi_d(jit_state_t*,int32_t,int32_t,jit_float64_t);
-# define swf_unordr_f(r0,r1,r2) swf_iunff(__aeabi_fcmpun,r0,r1,r2)
-# define swf_unordi_f(r0,r1,i0) swf_iunff_(__aeabi_fcmpun,r0,r1,i0)
-# define swf_unordr_d(r0,r1,r2) swf_iundd(__aeabi_dcmpun,r0,r1,r2)
-# define swf_unordi_d(r0,r1,i0) swf_iundd_(__aeabi_dcmpun,r0,r1,i0)
-# define swf_bltr_f(i0,r0,r1)
swf_bff(__aeabi_fcmplt,ARM_CC_NE,i0,r0,r1)
-# define swf_blti_f(i0,r0,i1)
swf_bff_(__aeabi_fcmplt,ARM_CC_NE,i0,r0,i1)
-# define swf_bltr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmplt,ARM_CC_NE,i0,r0,r1)
-# define swf_blti_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmplt,ARM_CC_NE,i0,r0,i1)
-# define swf_bler_f(i0,r0,r1)
swf_bff(__aeabi_fcmple,ARM_CC_NE,i0,r0,r1)
-# define swf_blei_f(i0,r0,i1)
swf_bff_(__aeabi_fcmple,ARM_CC_NE,i0,r0,i1)
-# define swf_bler_d(i0,r0,r1)
swf_bdd(__aeabi_dcmple,ARM_CC_NE,i0,r0,r1)
-# define swf_blei_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmple,ARM_CC_NE,i0,r0,i1)
-# define swf_beqr_f(i0,r0,r1)
swf_bff(__aeabi_fcmpeq,ARM_CC_NE,i0,r0,r1)
-# define swf_beqi_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpeq,ARM_CC_NE,i0,r0,i1)
-# define swf_beqr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpeq,ARM_CC_NE,i0,r0,r1)
-# define swf_beqi_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpeq,ARM_CC_NE,i0,r0,i1)
-# define swf_bger_f(i0,r0,r1)
swf_bff(__aeabi_fcmpge,ARM_CC_NE,i0,r0,r1)
-# define swf_bgei_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpge,ARM_CC_NE,i0,r0,i1)
-# define swf_bger_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpge,ARM_CC_NE,i0,r0,r1)
-# define swf_bgei_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpge,ARM_CC_NE,i0,r0,i1)
-# define swf_bgtr_f(i0,r0,r1)
swf_bff(__aeabi_fcmpgt,ARM_CC_NE,i0,r0,r1)
-# define swf_bgti_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpgt,ARM_CC_NE,i0,r0,i1)
-# define swf_bgtr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpgt,ARM_CC_NE,i0,r0,r1)
-# define swf_bgti_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpgt,ARM_CC_NE,i0,r0,i1)
-# define swf_bner_f(i0,r0,r1)
swf_bff(__aeabi_fcmpeq,ARM_CC_EQ,i0,r0,r1)
-# define swf_bnei_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpeq,ARM_CC_EQ,i0,r0,i1)
-# define swf_bner_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpeq,ARM_CC_EQ,i0,r0,r1)
-# define swf_bnei_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpeq,ARM_CC_EQ,i0,r0,i1)
-# define swf_bunltr_f(i0,r0,r1)
swf_bff(__aeabi_fcmpge,ARM_CC_EQ,i0,r0,r1)
-# define swf_bunlti_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpge,ARM_CC_EQ,i0,r0,i1)
-# define swf_bunltr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpge,ARM_CC_EQ,i0,r0,r1)
-# define swf_bunlti_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpge,ARM_CC_EQ,i0,r0,i1)
-# define swf_bunler_f(i0,r0,r1)
swf_bff(__aeabi_fcmpgt,ARM_CC_EQ,i0,r0,r1)
-# define swf_bunlei_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpgt,ARM_CC_EQ,i0,r0,i1)
-# define swf_bunler_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpgt,ARM_CC_EQ,i0,r0,r1)
-# define swf_bunlei_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpgt,ARM_CC_EQ,i0,r0,i1)
-# define swf_buneqr_f(i0,r0,r1) swf_bunff(1,i0,r0,r1)
-# define swf_buneqi_f(i0,r0,i1) swf_bunff_(1,i0,r0,i1)
-# define swf_buneqr_d(i0,r0,r1) swf_bundd(1,i0,r0,r1)
-# define swf_buneqi_d(i0,r0,i1) swf_bundd_(1,i0,r0,i1)
-# define swf_bunger_f(i0,r0,r1)
swf_bff(__aeabi_fcmplt,ARM_CC_EQ,i0,r0,r1)
-# define swf_bungei_f(i0,r0,i1)
swf_bff_(__aeabi_fcmplt,ARM_CC_EQ,i0,r0,i1)
-# define swf_bunger_d(i0,r0,r1)
swf_bdd(__aeabi_dcmplt,ARM_CC_EQ,i0,r0,r1)
-# define swf_bungei_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmplt,ARM_CC_EQ,i0,r0,i1)
-# define swf_bungtr_f(i0,r0,r1)
swf_bff(__aeabi_fcmple,ARM_CC_EQ,i0,r0,r1)
-# define swf_bungti_f(i0,r0,i1)
swf_bff_(__aeabi_fcmple,ARM_CC_EQ,i0,r0,i1)
-# define swf_bungtr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmple,ARM_CC_EQ,i0,r0,r1)
-# define swf_bungti_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmple,ARM_CC_EQ,i0,r0,i1)
-# define swf_bltgtr_f(i0,r0,r1) swf_bunff(0,i0,r0,r1)
-# define swf_bltgti_f(i0,r0,i1) swf_bunff_(0,i0,r0,i1)
-# define swf_bltgtr_d(i0,r0,r1) swf_bundd(0,i0,r0,r1)
-# define swf_bltgti_d(i0,r0,i1) swf_bundd_(0,i0,r0,i1)
-# define swf_bordr_f(i0,r0,r1)
swf_bff(__aeabi_fcmpun,ARM_CC_EQ,i0,r0,r1)
-# define swf_bordi_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpun,ARM_CC_EQ,i0,r0,i1)
-# define swf_bordr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpun,ARM_CC_EQ,i0,r0,r1)
-# define swf_bordi_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpun,ARM_CC_EQ,i0,r0,i1)
-# define swf_bunordr_f(i0,r0,r1)
swf_bff(__aeabi_fcmpun,ARM_CC_NE,i0,r0,r1)
-# define swf_bunordi_f(i0,r0,i1)
swf_bff_(__aeabi_fcmpun,ARM_CC_NE,i0,r0,i1)
-# define swf_bunordr_d(i0,r0,r1)
swf_bdd(__aeabi_dcmpun,ARM_CC_NE,i0,r0,r1)
-# define swf_bunordi_d(i0,r0,i1)
swf_bdd_(__aeabi_dcmpun,ARM_CC_NE,i0,r0,i1)
-# define swf_ldr_f(r0,r1) _swf_ldr_f(_jit,r0,r1)
-static void _swf_ldr_f(jit_state_t*,int32_t,int32_t);
-# define swf_ldr_d(r0,r1) _swf_ldr_d(_jit,r0,r1)
-static void _swf_ldr_d(jit_state_t*,int32_t,int32_t);
-# define swf_ldi_f(r0,i0) _swf_ldi_f(_jit,r0,i0)
-static void _swf_ldi_f(jit_state_t*,int32_t,jit_word_t);
-# define swf_ldi_d(r0,i0) _swf_ldi_d(_jit,r0,i0)
-static void _swf_ldi_d(jit_state_t*,int32_t,jit_word_t);
-# define swf_ldxr_f(r0,r1,r2) _swf_ldxr_f(_jit,r0,r1,r2)
-static void _swf_ldxr_f(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_ldxr_d(r0,r1,r2) _swf_ldxr_d(_jit,r0,r1,r2)
-static void _swf_ldxr_d(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_ldxi_f(r0,r1,i0) _swf_ldxi_f(_jit,r0,r1,i0)
-static void _swf_ldxi_f(jit_state_t*,int32_t,int32_t,jit_word_t);
-# define swf_ldxi_d(r0,r1,i0) _swf_ldxi_d(_jit,r0,r1,i0)
-static void _swf_ldxi_d(jit_state_t*,int32_t,int32_t,jit_word_t);
-# define swf_str_f(r0,r1) _swf_str_f(_jit,r0,r1)
-static void _swf_str_f(jit_state_t*,int32_t,int32_t);
-# define swf_str_d(r0,r1) _swf_str_d(_jit,r0,r1)
-static void _swf_str_d(jit_state_t*,int32_t,int32_t);
-# define swf_sti_f(r0,i0) _swf_sti_f(_jit,r0,i0)
-static void _swf_sti_f(jit_state_t*,jit_word_t,int32_t);
-# define swf_sti_d(r0,i0) _swf_sti_d(_jit,r0,i0)
-static void _swf_sti_d(jit_state_t*,jit_word_t,int32_t);
-# define swf_stxr_f(r0,r1,r2) _swf_stxr_f(_jit,r0,r1,r2)
-static void _swf_stxr_f(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_stxr_d(r0,r1,r2) _swf_stxr_d(_jit,r0,r1,r2)
-static void _swf_stxr_d(jit_state_t*,int32_t,int32_t,int32_t);
-# define swf_stxi_f(r0,r1,i0) _swf_stxi_f(_jit,r0,r1,i0)
-static void _swf_stxi_f(jit_state_t*,jit_word_t,int32_t,int32_t);
-# define swf_stxi_d(r0,r1,i0) _swf_stxi_d(_jit,r0,r1,i0)
-static void _swf_stxi_d(jit_state_t*,jit_word_t,int32_t,int32_t);
-# define swf_vaarg_d(r0, r1) _swf_vaarg_d(_jit, r0, r1)
-static void _swf_vaarg_d(jit_state_t*, int32_t, int32_t);
-#endif
-
-#if CODE
-#define swf_off(rn) ((rn - 16) << 2)
-
-#define swf_call(function, label, regno) \
- do { \
- jit_word_t d; \
- if (!jit_exchange_p()) { \
- if (jit_thumb_p()) \
- d = (((jit_word_t)function - _jit->pc.w) >> 1) - 2; \
- else \
- d = (((jit_word_t)function - _jit->pc.w) >> 2) - 2; \
- if (_s24P(d)) { \
- if (jit_thumb_p()) \
- T2_BLI(encode_thumb_jump(d)); \
- else \
- BLI(d & 0x00ffffff); \
- } \
- else \
- goto label; \
- } \
- else { \
- label: \
- movi(regno, (jit_word_t)function); \
- if (jit_thumb_p()) \
- T1_BLX(regno); \
- else \
- BLX(regno); \
- } \
- } while (0)
-#define swf_call_with_get_reg(function, label) \
- do { \
- jit_word_t d; \
- int32_t reg; \
- if (!jit_exchange_p()) { \
- if (jit_thumb_p()) \
- d = (((jit_word_t)function - _jit->pc.w) >> 1) - 2; \
- else \
- d = (((jit_word_t)function - _jit->pc.w) >> 2) - 2; \
- if (_s24P(d)) { \
- if (jit_thumb_p()) \
- T2_BLI(encode_thumb_jump(d)); \
- else \
- BLI(d & 0x00ffffff); \
- } \
- else \
- goto label; \
- } \
- else { \
- label: \
- reg = jit_get_reg(jit_class_gpr); \
- movi(rn(reg), (jit_word_t)function); \
- if (jit_thumb_p()) \
- T1_BLX(rn(reg)); \
- else \
- BLX(rn(reg)); \
- jit_unget_reg(reg); \
- } \
- } while (0)
-#define swf_ldrin(rt, rn, im) \
- do { \
- if (jit_thumb_p()) T2_LDRIN(rt, rn, im); \
- else LDRIN(rt, rn, im); \
- } while (0)
-#define swf_strin(rt, rn, im) \
- do { \
- if (jit_thumb_p()) T2_STRIN(rt, rn, im); \
- else STRIN(rt, rn, im); \
- } while (0)
-#define swf_bici(rt, rn, im) \
- do { \
- if (jit_thumb_p()) \
- T2_BICI(rt, rn, encode_thumb_immediate(im)); \
- else \
- BICI(rt, rn, encode_arm_immediate(im)); \
- } while (0)
-
-#if !defined(__GNUC__)
-float __addsf3(float u, float v)
-{
- return (u + v);
-}
-
-double
-__adddf3(double u, double v)
-{
- return (u + v);
-}
-
-float
-__aeabi_fsub(float u, float v)
-{
- return (u - v);
-}
-
-double
-__aeabi_dsub(double u, double v)
-{
- return (u - v);
-}
-
-float
-__aeabi_fmul(float u, float v)
-{
- return (u * v);
-}
-
-double
-__aeabi_dmul(double u, double v)
-{
- return (u * v);
-}
-
-float
-__aeabi_fdiv(float u, float v)
-{
- return (u / v);
-}
-
-double
-__aeabi_ddiv(double u, double v)
-{
- return (u / v);
-}
-
-float
-__aeabi_i2f(int u)
-{
- return (u);
-}
-
-double
-__aeabi_i2d(int u)
-{
- return (u);
-}
-
-float
-__aeabi_d2f(double u)
-{
- return (u);
-}
-
-double
-__aeabi_f2d(float u)
-{
- return (u);
-}
-
-int
-__aeabi_f2iz(float u)
-{
- return (u);
-}
-
-int
-__aeabi_d2iz(double u)
-{
- return (u);
-}
-
-int
-__aeabi_fcmplt(float u, float v)
-{
- return (u < v);
-}
-
-int
-__aeabi_dcmplt(double u, double v)
-{
- return (u < v);
-}
-
-int
-__aeabi_fcmple(float u, float v)
-{
- return (u <= v);
-}
-
-int
-__aeabi_dcmple(double u, double v)
-{
- return (u <= v);
-}
-
-int
-__aeabi_fcmpeq(float u, float v)
-{
- return (u == v);
-}
-
-int
-__aeabi_dcmpeq(double u, double v)
-{
- return (u == v);
-}
-
-int
-__aeabi_fcmpge(float u, float v)
-{
- return (u >= v);
-}
-
-int
-__aeabi_dcmpge(double u, double v)
-{
- return (u >= v);
-}
-
-int
-__aeabi_fcmpgt(float u, float v)
-{
- return (u > v);
-}
-
-int
-__aeabi_dcmpgt(double u, double v)
-{
- return (u > v);
-}
-
-int
-__aeabi_fcmpun(float u, float v)
-{
- return ((u != u) || (v != v));
-}
-
-int
-__aeabi_dcmpun(double u, double v)
-{
- return ((u != u) || (v != v));
-}
-#endif
-
-static void
-_swf_ff(jit_state_t *_jit, float(*i0)(float),
- int32_t r0, int32_t r1)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- swf_call(i0, fallback, _R1_REGNO);
- if (jit_fpr_p(r0))
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_dd(jit_state_t *_jit, double (*i0)(double),
- int32_t r0, int32_t r1)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- swf_call(i0, fallback, _R2_REGNO);
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- STRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, _R0_REGNO);
- movr(r0 + 1, _R1_REGNO);
- }
- jit_unget_reg_args();
-}
-
-static void
-_swf_fff(jit_state_t *_jit, float (*i0)(float, float),
- int32_t r0, int32_t r1, int32_t r2)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- if (jit_fpr_p(r2))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else
- movr(_R1_REGNO, r1);
- swf_call(i0, fallback, _R3_REGNO);
- if (jit_fpr_p(r0))
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_ddd(jit_state_t *_jit, double (*i0)(double, double),
- int32_t r0, int32_t r1, int32_t r2)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- if (jit_fpr_p(r2)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r2) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r2);
- movr(_R3_REGNO, r2 + 1);
- }
- swf_call_with_get_reg(i0, fallback);
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- STRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, _R0_REGNO);
- movr(r0 + 1, _R1_REGNO);
- }
- jit_unget_reg_args();
-}
-
-static void
-_swf_fff_(jit_state_t *_jit, float (*i0)(float, float),
- int32_t r0, int32_t r1, jit_float32_t i1)
-{
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- jit_get_reg_args();
- data.f = i1;
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- movi(_R1_REGNO, data.i);
- swf_call(i0, fallback, _R3_REGNO);
- if (jit_fpr_p(r0))
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_rsbi_f(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float32_t i0)
-{
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- jit_get_reg_args();
- data.f = i0;
- movi(_R0_REGNO, data.i);
- if (jit_fpr_p(r1))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R1_REGNO, r1);
- swf_call(__aeabi_fsub, fallback, _R3_REGNO);
- if (jit_fpr_p(r0))
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_ddd_(jit_state_t *_jit, double (*i0)(double, double),
- int32_t r0, int32_t r1, jit_float64_t i1)
-{
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- jit_get_reg_args();
-
- data.d = i1;
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(i0, fallback);
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- STRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, _R0_REGNO);
- movr(r0 + 1, _R1_REGNO);
- }
- jit_unget_reg_args();
-}
-
-static void
-_swf_rsbi_d(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float64_t i0)
-{
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- jit_get_reg_args();
- data.d = i0;
- movi(_R0_REGNO, data.i[0]);
- movi(_R1_REGNO, data.i[1]);
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r1);
- movr(_R3_REGNO, r1 + 1);
- }
- swf_call_with_get_reg(__aeabi_dsub, fallback);
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- STRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, _R0_REGNO);
- movr(r0 + 1, _R1_REGNO);
- }
- jit_unget_reg_args();
-}
-
-static void
-_swf_iff(jit_state_t *_jit, int (*i0)(float, float),
- int32_t r0, int32_t r1, int32_t r2)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- if (jit_fpr_p(r2))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else
- movr(_R1_REGNO, r2);
- swf_call(i0, fallback, _R2_REGNO);
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_idd(jit_state_t *_jit, int (*i0)(double, double),
- int32_t r0, int32_t r1, int32_t r2)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- if (jit_fpr_p(r2)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r2) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r2);
- movr(_R3_REGNO, r2 + 1);
- }
- swf_call_with_get_reg(i0, fallback);
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_iff_(jit_state_t *_jit, int (*i0)(float, float),
- int32_t r0, int32_t r1, jit_float32_t i1)
-{
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- jit_get_reg_args();
- data.f = i1;
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- movi(_R1_REGNO, data.i);
- swf_call(i0, fallback, _R2_REGNO);
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_idd_(jit_state_t *_jit, int (*i0)(double, double),
- int32_t r0, int32_t r1, jit_float64_t i1)
-{
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- jit_get_reg_args();
- data.d = i1;
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(i0, fallback);
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_iunff(jit_state_t *_jit, int (*i0)(float, float),
- int32_t r0, int32_t r1, int32_t r2)
-{
- jit_word_t instr;
- jit_get_reg_args();
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- if (jit_fpr_p(r2))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else
- movr(_R1_REGNO, r2);
- swf_call(__aeabi_fcmpun, fcmpun, _R2_REGNO);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- IT(ARM_CC_NE);
- if (r0 < 8)
- T1_MOVI(r0, 1);
- else
- T2_MOVI(r0, 1);
- instr = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- CC_MOVI(ARM_CC_NE, r0, 1);
- instr = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- if (jit_fpr_p(r2))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else
- movr(_R1_REGNO, r2);
- swf_call(i0, fallback, _R2_REGNO);
- movr(r0, _R0_REGNO);
- patch_at(arm_patch_jump, instr, _jit->pc.w);
- jit_unget_reg_args();
-}
-
-static void
-_swf_iundd(jit_state_t *_jit, int (*i0)(double, double),
- int32_t r0, int32_t r1, int32_t r2)
-{
- jit_word_t instr;
- jit_get_reg_args();
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- if (jit_fpr_p(r2)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r2) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r2);
- movr(_R3_REGNO, r2 + 1);
- }
- swf_call_with_get_reg(__aeabi_dcmpun, dcmpun);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- IT(ARM_CC_NE);
- if (r0 < 8)
- T1_MOVI(r0, 1);
- else
- T2_MOVI(r0, 1);
- instr = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- CC_MOVI(ARM_CC_NE, r0, 1);
- instr = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- if (jit_fpr_p(r2)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r2) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r2) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r2);
- movr(_R3_REGNO, r2 + 1);
- }
- swf_call_with_get_reg(i0, fallback);
- movr(r0, _R0_REGNO);
- patch_at(arm_patch_jump, instr, _jit->pc.w);
- jit_unget_reg_args();
-}
-
-static void
-_swf_iunff_(jit_state_t *_jit, int (*i0)(float, float),
- int32_t r0, int32_t r1, jit_float32_t i1)
-{
- jit_word_t instr;
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- jit_get_reg_args();
- data.f = i1;
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- movi(_R1_REGNO, data.i);
- swf_call(__aeabi_fcmpun, fcmpun, _R2_REGNO);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- IT(ARM_CC_NE);
- if (r0 < 8)
- T1_MOVI(r0, 1);
- else
- T2_MOVI(r0, 1);
- instr = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- CC_MOVI(ARM_CC_NE, r0, 1);
- instr = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- movi(_R1_REGNO, data.i);
- swf_call(i0, fallback, _R2_REGNO);
- movr(r0, _R0_REGNO);
- patch_at(arm_patch_jump, instr, _jit->pc.w);
- jit_unget_reg_args();
-}
-
-static void
-_swf_iundd_(jit_state_t *_jit, int (*i0)(double, double),
- int32_t r0, int32_t r1, jit_float64_t i1)
-{
- jit_word_t instr;
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- jit_get_reg_args();
- data.d = i1;
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(__aeabi_dcmpun, dcmpun);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- IT(ARM_CC_NE);
- if (r0 < 8)
- T1_MOVI(r0, 1);
- else
- T2_MOVI(r0, 1);
- instr = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- CC_MOVI(ARM_CC_NE, r0, 1);
- instr = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(i0, fallback);
- movr(r0, _R0_REGNO);
- patch_at(arm_patch_jump, instr, _jit->pc.w);
- jit_unget_reg_args();
-}
-
-static jit_word_t
-_swf_bff(jit_state_t *_jit, int (*i0)(float, float), int cc,
- jit_word_t i1, int32_t r0, int32_t r1)
-{
- jit_word_t w, d;
- jit_get_reg_args();
- if (jit_fpr_p(r0))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(_R0_REGNO, r0);
- if (jit_fpr_p(r1))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R1_REGNO, r1);
- swf_call(i0, fallback, _R2_REGNO);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 1) - 2;
- assert(_s20P(d));
- T2_CC_B(cc, encode_thumb_cc_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 2) - 2;
- assert(_s24P(d));
- CC_B(cc, d & 0x00ffffff);
- }
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bdd(jit_state_t *_jit, int (*i0)(double, double), int cc,
- jit_word_t i1, int32_t r0, int32_t r1)
-{
- jit_word_t w, d;
- jit_get_reg_args();
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r0);
- movr(_R1_REGNO, r0 + 1);
- }
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r1);
- movr(_R3_REGNO, r1 + 1);
- }
- swf_call_with_get_reg(i0, fallback);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 1) - 2;
- assert(_s20P(d));
- T2_CC_B(cc, encode_thumb_cc_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 2) - 2;
- assert(_s24P(d));
- CC_B(cc, d & 0x00ffffff);
- }
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bff_(jit_state_t *_jit, int (*i0)(float, float), int cc,
- jit_word_t i1, int32_t r0, jit_float32_t i2)
-{
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- jit_word_t w, d;
- jit_get_reg_args();
- data.f = i2;
- if (jit_fpr_p(r0))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(_R0_REGNO, r0);
- movi(_R1_REGNO, data.i);
- swf_call(i0, fallback, _R2_REGNO);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 1) - 2;
- assert(_s20P(d));
- T2_CC_B(cc, encode_thumb_cc_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 2) - 2;
- assert(_s24P(d));
- CC_B(cc, d & 0x00ffffff);
- }
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bdd_(jit_state_t *_jit, int (*i0)(double, double), int cc,
- jit_word_t i1, int32_t r0, jit_float64_t i2)
-{
- jit_word_t w, d;
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- jit_get_reg_args();
- data.d = i2;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r0);
- movr(_R1_REGNO, r0 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(i0, fallback);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 1) - 2;
- assert(_s20P(d));
- T2_CC_B(cc, encode_thumb_cc_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- w = _jit->pc.w;
- d = ((i1 - w) >> 2) - 2;
- assert(_s24P(d));
- CC_B(cc, d & 0x00ffffff);
- }
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bunff(jit_state_t *_jit, int eq,
- jit_word_t i0, int32_t r0, int32_t r1)
-{
- jit_word_t w, d, j0, j1;
- jit_get_reg_args();
- if (jit_fpr_p(r0))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(_R0_REGNO, r0);
- if (jit_fpr_p(r1))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R1_REGNO, r1);
- swf_call(__aeabi_fcmpun, fcmpun, _R2_REGNO);
- /* if unordered */
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r0))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(_R0_REGNO, r0);
- if (jit_fpr_p(r1))
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R1_REGNO, r1);
- swf_call(__aeabi_fcmpeq, fcmpeq, _R2_REGNO);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- T2_CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- T2_CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 1) - 2;
- assert(_s24P(d));
- T2_B(encode_thumb_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 2) - 2;
- assert(_s24P(d));
- B(d & 0x00ffffff);
- }
- if (!eq)
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- patch_at(arm_patch_jump, j1, _jit->pc.w);
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bundd(jit_state_t *_jit, int eq,
- jit_word_t i0, int32_t r0, int32_t r1)
-{
- jit_word_t w, d, j0, j1;
- jit_get_reg_args();
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r0);
- movr(_R1_REGNO, r0 + 1);
- }
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r0);
- movr(_R3_REGNO, r0 + 1);
- }
- swf_call_with_get_reg(__aeabi_dcmpun, dcmpun);
- /* if unordered */
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r0);
- movr(_R1_REGNO, r0 + 1);
- }
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R2_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R3_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R2_REGNO, r0);
- movr(_R3_REGNO, r0 + 1);
- }
- swf_call_with_get_reg(__aeabi_dcmpeq, dcmpeq);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- T2_CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- T2_CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 1) - 2;
- assert(_s24P(d));
- T2_B(encode_thumb_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 2) - 2;
- assert(_s24P(d));
- B(d & 0x00ffffff);
- }
- if (!eq)
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- patch_at(arm_patch_jump, j1, _jit->pc.w);
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bunff_(jit_state_t *_jit, int eq,
- jit_word_t i0, int32_t r0, jit_float32_t i1)
-{
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- jit_word_t w, d, j0, j1;
- data.f = i1;
- jit_get_reg_args();
- if (jit_fpr_p(r0))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(_R0_REGNO, r0);
- movi(_R1_REGNO, data.i);
- swf_call(__aeabi_fcmpun, fcmpun, _R2_REGNO);
- /* if unordered */
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r0))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(_R0_REGNO, r0);
- movi(_R1_REGNO, data.i);
- swf_call(__aeabi_fcmpeq, fcmpeq, _R2_REGNO);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- T2_CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- T2_CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 1) - 2;
- assert(_s24P(d));
- T2_B(encode_thumb_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 2) - 2;
- assert(_s24P(d));
- B(d & 0x00ffffff);
- }
- if (!eq)
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- patch_at(arm_patch_jump, j1, _jit->pc.w);
- jit_unget_reg_args();
- return (w);
-}
-
-static jit_word_t
-_swf_bundd_(jit_state_t *_jit, int eq,
- jit_word_t i0, int32_t r0, jit_float64_t i1)
-{
- jit_word_t w, d, j0, j1;
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- jit_get_reg_args();
- data.d = i1;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r0);
- movr(_R1_REGNO, r0 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(__aeabi_dcmpun, fcmpun);
- /* if unordered */
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- T2_CC_B(ARM_CC_NE, 0);
- }
- else {
- CMPI(_R0_REGNO, 0);
- j0 = _jit->pc.w;
- CC_B(ARM_CC_NE, 0);
- }
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r0);
- movr(_R1_REGNO, r0 + 1);
- }
- movi(_R2_REGNO, data.i[0]);
- movi(_R3_REGNO, data.i[1]);
- swf_call_with_get_reg(__aeabi_dcmpeq, fcmpeq);
- if (jit_thumb_p()) {
- T1_CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- T2_CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- T2_CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 1) - 2;
- assert(_s24P(d));
- T2_B(encode_thumb_jump(d));
- }
- else {
- CMPI(_R0_REGNO, 0);
- j1 = _jit->pc.w;
- if (eq) {
- CC_B(ARM_CC_EQ, 0);
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- }
- else
- CC_B(ARM_CC_NE, 0);
- w = _jit->pc.w;
- d = ((i0 - w) >> 2) - 2;
- assert(_s24P(d));
- B(d & 0x00ffffff);
- }
- if (!eq)
- patch_at(arm_patch_jump, j0, _jit->pc.w);
- patch_at(arm_patch_jump, j1, _jit->pc.w);
- jit_unget_reg_args();
- return (w);
-}
-
-static void
-_swf_extr_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- jit_get_reg_args();
- movr(_R0_REGNO, r1);
- swf_call(__aeabi_i2f, i2f, _R1_REGNO);
- if (jit_fpr_p(r0))
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_extr_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- jit_get_reg_args();
- movr(_R0_REGNO, r1);
- swf_call(__aeabi_i2d, i2d, _R2_REGNO);
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- STRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, _R0_REGNO);
- movr(r0 + 1, _R1_REGNO);
- }
- jit_unget_reg_args();
-}
-
-static void
-_swf_extr_d_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
- swf_call(__aeabi_d2f, d2f, _R2_REGNO);
- if (jit_fpr_p(r0))
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, _R0_REGNO);
- jit_unget_reg_args();
-}
-
-static void
-_swf_extr_f_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- jit_get_reg_args();
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
- swf_call(__aeabi_f2d, f2d, _R1_REGNO);
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- STRDIN(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(_R0_REGNO, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(_R1_REGNO, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, _R0_REGNO);
- movr(r0 + 1, _R1_REGNO);
- }
- jit_unget_reg_args();
-}
-
-static void
-_swf_truncr_f_i(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
-#if !NAN_TO_INT_IS_ZERO
- jit_word_t is_nan;
- jit_word_t fast_not_nan;
- jit_word_t slow_not_nan;
-#endif
- jit_get_reg_args();
- if (jit_fpr_p(r1))
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else
- movr(_R0_REGNO, r1);
-#if !NAN_TO_INT_IS_ZERO
- /* >> based on fragment of __aeabi_fcmpun */
- lshi(_R2_REGNO, _R0_REGNO, 1);
- if (jit_thumb_p())
- torrrs(THUMB2_MVN|ARM_S, _R0_REGNO, _R3_REGNO, _R2_REGNO,
- encode_thumb_shift(24, ARM_ASR));
- else
- corrrs(ARM_CC_AL, ARM_MVN|ARM_S|ARM_ASR,
- _R0_REGNO, _R3_REGNO, _R2_REGNO, 24);
- fast_not_nan = _jit->pc.w;
- if (jit_thumb_p()) {
- T2_CC_B(ARM_CC_NE, 0);
- tshift(THUMB2_LSLI|ARM_S, _R0_REGNO, _R3_REGNO, 9);
- }
- else {
- CC_B(ARM_CC_NE, 0);
- cshift(ARM_CC_AL, ARM_S|ARM_LSL, _R0_REGNO, _R3_REGNO, _R0_REGNO, 9);
- }
- slow_not_nan = _jit->pc.w;
- if (jit_thumb_p())
- T2_CC_B(ARM_CC_EQ, 0);
- else
- CC_B(ARM_CC_EQ, 0);
- movi(r0, 0x80000000);
- is_nan = _jit->pc.w;
- if (jit_thumb_p())
- T2_B(0);
- else
- B(0);
- patch_at(arm_patch_jump, fast_not_nan, _jit->pc.w);
- patch_at(arm_patch_jump, slow_not_nan, _jit->pc.w);
- /* << based on fragment of __aeabi_fcmpun */
-#endif
- swf_call(__aeabi_f2iz, f2iz, _R2_REGNO);
- movr(r0, _R0_REGNO);
-#if !NAN_TO_INT_IS_ZERO
- patch_at(arm_patch_jump, is_nan, _jit->pc.w);
-#endif
- jit_unget_reg_args();
-}
-
-static void
-_swf_truncr_d_i(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
-#if !NAN_TO_INT_IS_ZERO
- jit_word_t is_nan;
- jit_word_t fast_not_nan;
- jit_word_t slow_not_nan;
-#endif
- jit_get_reg_args();
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p())
- LDRDIN(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- else {
- swf_ldrin(_R0_REGNO, _FP_REGNO, swf_off(r1) + 8);
- swf_ldrin(_R1_REGNO, _FP_REGNO, swf_off(r1) + 4);
- }
- }
- else {
- movr(_R0_REGNO, r1);
- movr(_R1_REGNO, r1 + 1);
- }
-#if !NAN_TO_INT_IS_ZERO
- /* >> based on fragment of __aeabi_dcmpun */
- lshi(_R3_REGNO, _R1_REGNO, 1);
- if (jit_thumb_p())
- torrrs(THUMB2_MVN|ARM_S, _R0_REGNO, _R3_REGNO, _R3_REGNO,
- encode_thumb_shift(21, ARM_ASR));
- else
- corrrs(ARM_CC_AL, ARM_MVN|ARM_S|ARM_ASR,
- _R0_REGNO, _R3_REGNO, _R3_REGNO, 21);
- fast_not_nan = _jit->pc.w;
- if (jit_thumb_p()) {
- T2_CC_B(ARM_CC_NE, 0);
- torrrs(THUMB2_ORR|ARM_S, _R0_REGNO, _R3_REGNO, _R1_REGNO,
- encode_thumb_shift(12, ARM_LSL));
- }
- else {
- CC_B(ARM_CC_NE, 0);
- corrrs(ARM_CC_AL, ARM_ORR|ARM_S|ARM_LSL,
- _R0_REGNO, _R3_REGNO, _R1_REGNO, 12);
- }
- slow_not_nan = _jit->pc.w;
- if (jit_thumb_p())
- T2_CC_B(ARM_CC_EQ, 0);
- else
- CC_B(ARM_CC_EQ, 0);
- movi(r0, 0x80000000);
- is_nan = _jit->pc.w;
- if (jit_thumb_p())
- T2_B(0);
- else
- B(0);
- patch_at(arm_patch_jump, fast_not_nan, _jit->pc.w);
- patch_at(arm_patch_jump, slow_not_nan, _jit->pc.w);
- /* << based on fragment of __aeabi_dcmpun */
-#endif
- swf_call(__aeabi_d2iz, d2iz, _R3_REGNO);
- movr(r0, _R0_REGNO);
-#if !NAN_TO_INT_IS_ZERO
- patch_at(arm_patch_jump, is_nan, _jit->pc.w);
-#endif
- jit_unget_reg_args();
-}
-
-static void
-_swf_movr_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (r0 != r1) {
- if (jit_fpr_p(r1)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- if (jit_fpr_p(r0))
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, rn(reg));
- jit_unget_reg(reg);
- }
- else if (jit_fpr_p(r0))
- swf_strin(r1, _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, r1);
- }
-}
-
-static void
-_swf_movr_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (r0 != r1) {
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (reg = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDIN(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- if (jit_fpr_p(r0))
- STRDIN(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- else {
- movr(r0, rn(reg));
- movr(r0 + 1, rn(reg) + 1);
- }
- jit_unget_reg_pair(reg);
- }
- else {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- if (jit_fpr_p(r0))
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, rn(reg));
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 4);
- if (jit_fpr_p(r0))
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- else
- movr(r0 + 1, rn(reg));
- jit_unget_reg(reg);
- }
- }
- else if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p() && !(r1 & 1))
- STRDIN(r1, _FP_REGNO, swf_off(r0) + 8);
- else {
- swf_strin(r1, _FP_REGNO, swf_off(r0) + 8);
- swf_strin(r1 + 1, _FP_REGNO, swf_off(r0) + 4);
- }
- }
- else {
- movr(r0, r1);
- movr(r0 + 1, r1 + 1);
- }
- }
-}
-
-static void
-_swf_movi_f(jit_state_t *_jit, int32_t r0, jit_float32_t i0)
-{
- union {
- int32_t i;
- jit_float32_t f;
- } data;
- int32_t reg;
- data.f = i0;
- if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- movi(rn(reg), data.i);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- movi(r0, data.i);
-}
-
-static void
-_swf_movi_d(jit_state_t *_jit, int32_t r0, jit_float64_t i0)
-{
- int32_t reg;
- union {
- int32_t i[2];
- jit_float64_t d;
- } data;
- data.d = i0;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (reg = jit_get_reg_pair()) != JIT_NOREG) {
- movi(rn(reg), data.i[0]);
- movi(rn(reg) + 1, data.i[1]);
- STRDIN(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(reg);
- }
- else {
- reg = jit_get_reg(jit_class_gpr);
- movi(rn(reg), data.i[0]);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- movi(rn(reg), data.i[1]);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(reg);
- }
- }
- else {
- movi(r0, data.i[0]);
- movi(r0 + 1, data.i[1]);
- }
-}
-
-static void
-_swf_absr_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- swf_bici(rn(reg), rn(reg), 0x80000000);
- if (jit_fpr_p(r0))
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, rn(reg));
- jit_unget_reg(reg);
- }
- else if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- movr(rn(reg), r1);
- swf_bici(rn(reg), rn(reg), 0x80000000);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- swf_bici(r0, r1, 0x80000000);
-}
-
-static void
-_swf_absr_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- if (jit_fpr_p(r0) && !jit_thumb_p() && jit_armv5e_p() &&
- r0 != r1 && (reg = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDIN(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- swf_bici(rn(reg) + 1, rn(reg) + 1, 0x80000000);
- STRDIN(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(reg);
- }
- else {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 4);
- swf_bici(rn(reg), rn(reg), 0x80000000);
- if (jit_fpr_p(r0)) {
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- if (r0 != r1) {
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- }
- }
- else {
- movr(r0, rn(reg));
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- movr(r0 + 1, rn(reg));
- }
- jit_unget_reg(reg);
- }
- }
- else if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- movr(rn(reg), r1);
- swf_bici(rn(reg), rn(reg), 0x80000000);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- movr(rn(reg), r1 + 1);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else {
- swf_bici(r0, r1, 0x80000000);
- if (r0 != r1)
- movr(r0 + 1, r1 + 1);
- }
-}
-
-static void
-_swf_negr_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- xori(rn(reg), rn(reg), 0x80000000);
- if (jit_fpr_p(r0))
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- else
- movr(r0, rn(reg));
- jit_unget_reg(reg);
- }
- else if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- movr(rn(reg), r1);
- xori(rn(reg), rn(reg), 0x80000000);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- xori(r0, r1, 0x80000000);
-}
-
-static void
-_swf_negr_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- if (jit_fpr_p(r0) && !jit_thumb_p() && jit_armv5e_p() &&
- r0 != r1 && (reg = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDIN(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- EORI(rn(reg) + 1, rn(reg) + 1, encode_arm_immediate(0x80000000));
- STRDIN(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(reg);
- }
- else {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 4);
- xori(rn(reg), rn(reg), 0x80000000);
- if (jit_fpr_p(r0)) {
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- if (r0 != r1) {
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- }
- }
- else {
- movr(r0, rn(reg));
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- movr(r0 + 1, rn(reg));
- }
- jit_unget_reg(reg);
- }
- }
- else if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- movr(rn(reg), r1);
- xori(rn(reg), rn(reg), 0x80000000);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- movr(rn(reg), r1 + 1);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else {
- xori(r0, r1, 0x80000000);
- if (r0 != r1)
- movr(r0 + 1, r1 + 1);
- }
-}
-
-static void
-_swf_ner_f(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- swf_iff(__aeabi_fcmpeq, r0, r1, r2);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_nei_f(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float32_t i0)
-{
- swf_iff_(__aeabi_fcmpeq, r0, r1, i0);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ner_d(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- swf_idd(__aeabi_dcmpeq, r0, r1, r2);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_nei_d(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float64_t i0)
-{
- swf_idd_(__aeabi_dcmpeq, r0, r1, i0);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ltgtr_f(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- swf_iunff(__aeabi_fcmpeq, r0, r1, r2);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ltgti_f(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float32_t i0)
-{
- swf_iunff_(__aeabi_fcmpeq, r0, r1, i0);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ltgtr_d(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- swf_iundd(__aeabi_dcmpeq, r0, r1, r2);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ltgti_d(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float64_t i0)
-{
- swf_iundd_(__aeabi_dcmpeq, r0, r1, i0);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ordr_f(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- swf_iff(__aeabi_fcmpun, r0, r1, r2);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ordi_f(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float32_t i0)
-{
- swf_iff_(__aeabi_fcmpun, r0, r1, i0);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ordr_d(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- swf_idd(__aeabi_dcmpun, r0, r1, r2);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ordi_d(jit_state_t *_jit, int32_t r0, int32_t r1, jit_float64_t i0)
-{
- swf_idd_(__aeabi_dcmpun, r0, r1, i0);
- xori(r0, r0, 1);
-}
-
-static void
-_swf_ldr_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- ldxi_i(rn(reg), r1, 0);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- ldxi_i(r0, r1, 0);
-}
-
-static void
-_swf_ldr_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (reg = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDI(rn(reg), r1, 0);
- STRDIN(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(reg);
- }
- else {
- reg = jit_get_reg(jit_class_gpr);
- ldxi_i(rn(reg), r1, 0);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- ldxi_i(rn(reg), r1, 4);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(reg);
- }
- }
- else if (!jit_thumb_p() && jit_armv5e_p() && !(r0 & 1))
- LDRDI(r0, r1, 0);
- else {
- ldxi_i(r0, r1, 0);
- ldxi_i(r0 + 1, r1, 4);
- }
-}
-
-static void
-_swf_ldi_f(jit_state_t *_jit, int32_t r0, jit_word_t i0)
-{
- int32_t reg;
- if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- ldi_i(rn(reg), i0);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- ldi_i(r0, i0);
-}
-
-static void
-_swf_ldi_d(jit_state_t *_jit, int32_t r0, jit_word_t i0)
-{
- int32_t rg0, rg1;
- if (jit_fpr_p(r0) && !jit_thumb_p() && jit_armv5e_p() &&
- (rg0 = jit_get_reg_pair()) != JIT_NOREG) {
- movi(rn(rg0), i0);
- LDRDI(rn(rg0), rn(rg0), 0);
- STRDIN(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(rg0);
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- movi(rn(rg1), i0);
- if (jit_fpr_p(r0)) {
- rg0 = jit_get_reg(jit_class_gpr);
- ldxi_i(rn(rg0), rn(rg1), 0);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- ldxi_i(rn(rg0), rn(rg1), 4);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(rg0);
- }
- else if (!jit_thumb_p() && jit_armv5e_p() && !(r0 & 1))
- LDRDI(r0, rn(rg1), 0);
- else {
- ldxi_i(r0, rn(rg1), 0);
- ldxi_i(r0 + 1, rn(rg1), 0);
- }
- jit_unget_reg(rg1);
- }
-}
-
-static void
-_swf_ldxr_f(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- int32_t reg;
- if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- ldxr_i(rn(reg), r1, r2);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- ldxr_i(r0, r1, r2);
-}
-
-static void
-_swf_ldxr_d(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- int32_t rg0, rg1;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (rg0 = jit_get_reg_pair()) != JIT_NOREG) {
- LDRD(rn(rg0), r1, r2);
- STRDIN(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(rg0);
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- addr(rn(rg1), r1, r2);
- rg0 = jit_get_reg(jit_class_gpr);
- ldxi_i(rn(rg0), rn(rg1), 0);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- ldxi_i(rn(rg0), rn(rg1), 4);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(rg0);
- jit_unget_reg(rg1);
- }
- }
- else {
- if (!jit_thumb_p() && jit_armv5e_p() && !(r0 & 1))
- LDRD(r0, r1, r2);
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- addr(rn(rg1), r1, r2);
- ldxi_i(r0, rn(rg1), 0);
- ldxi_i(r0 + 1, rn(rg1), 4);
- jit_unget_reg(rg1);
- }
- }
-}
-
-static void
-_swf_ldxi_f(jit_state_t *_jit, int32_t r0, int32_t r1, jit_word_t i0)
-{
- int32_t reg;
- if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- ldxi_i(rn(reg), r1, i0);
- swf_strin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg(reg);
- }
- else
- ldxi_i(r0, r1, i0);
-}
-
-static void
-_swf_ldxi_d(jit_state_t *_jit, int32_t r0, int32_t r1, jit_word_t i0)
-{
- int32_t rg0, rg1;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- ((i0 >= 0 && i0 <= 255) || (i0 < 0 && i0 >= -255)) &&
- (rg0 = jit_get_reg_pair()) != JIT_NOREG) {
- if (i0 >= 0)
- LDRDI(rn(rg0), r1, i0);
- else
- LDRDIN(rn(rg0), r1, -i0);
- STRDIN(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- jit_unget_reg_pair(rg0);
- }
- else if (i0 >= 0 && i0 + 4 <= 4095) {
- rg0 = jit_get_reg(jit_class_gpr);
- ldxi_i(rn(rg0), r1, i0);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- ldxi_i(rn(rg0), r1, i0 + 4);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(rg0);
- }
- else if (i0 < 0 && ((jit_thumb_p() && i0 >= -255) ||
- (!jit_thumb_p() && i0 >= -4095))) {
- rg0 = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(rg0), r1, -i0);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- swf_ldrin(rn(rg0), r1, -(i0 + 4));
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(rg0);
- }
- else {
- rg0 = jit_get_reg(jit_class_gpr);
- rg1 = jit_get_reg(jit_class_gpr);
- addi(rn(rg1), r1, i0);
- ldxi_i(rn(rg0), rn(rg1), 0);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- ldxi_i(rn(rg0), rn(rg1), 4);
- swf_strin(rn(rg0), _FP_REGNO, swf_off(r0) + 4);
- jit_unget_reg(rg1);
- jit_unget_reg(rg0);
- }
- }
- else {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- i0 >= 0 && i0 <= 255 && !(r0 & 1))
- LDRDI(r0, r1, i0);
- else if (!jit_thumb_p() && jit_armv5e_p() &&
- i0 < 0 && i0 >= -255 && !(r0 & 1))
- LDRDIN(r0, r1, -i0);
- else if (i0 >= 0 && i0 + 4 <= 4095) {
- ldxi_i(r0, r1, i0);
- ldxi_i(r0 + 1, r1, i0 + 4);
- }
- else if (i0 < 0 && i0 >= -4095) {
- swf_ldrin(r0, r1, -i0);
- swf_ldrin(r0 + 1, r1, -(i0 + 4));
- }
- else {
- rg0 = jit_get_reg(jit_class_gpr);
- addi(rn(rg0), r1, i0);
- ldxi_i(r0, rn(rg0), 0);
- ldxi_i(r0 + 1, rn(rg0), 4);
- jit_unget_reg(rg0);
- }
- }
-}
-
-static void
-_swf_str_f(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- stxi_i(0, r0, rn(reg));
- jit_unget_reg(reg);
- }
- else
- str_i(r0, r1);
-}
-
-static void
-_swf_str_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (reg = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDIN(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- STRDI(rn(reg), r0, 0);
- jit_unget_reg_pair(reg);
- }
- else {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- stxi_i(0, r0, rn(reg));
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 4);
- stxi_i(4, r0, rn(reg));
- jit_unget_reg(reg);
- }
- }
- else {
- if (!jit_thumb_p() && jit_armv5e_p() && !(r1 & 1))
- STRDI(r1, r0, 0);
- else {
- stxi_i(0, r0, r1);
- stxi_i(4, r0, r1 + 1);
- }
- }
-}
-
-static void
-_swf_sti_f(jit_state_t *_jit, jit_word_t i0, int32_t r0)
-{
- int32_t reg;
- if (jit_fpr_p(r0)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r0) + 8);
- sti_i(i0, rn(reg));
- jit_unget_reg(reg);
- }
- else
- sti_i(i0, r0);
-}
-
-static void
-_swf_sti_d(jit_state_t *_jit, jit_word_t i0, int32_t r0)
-{
- int32_t rg0, rg1;
- if (jit_fpr_p(r0)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (rg0 = jit_get_reg_pair()) != JIT_NOREG) {
- rg1 = jit_get_reg(jit_class_gpr);
- movi(rn(rg1), i0);
- LDRDIN(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- STRDI(rn(rg0), rn(rg1), 0);
- jit_unget_reg(rg1);
- jit_unget_reg_pair(rg0);
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- movi(rn(rg1), i0);
- rg0 = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r0) + 8);
- stxi_i(0, rn(rg1), rn(rg0));
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r0) + 4);
- stxi_i(4, rn(rg1), rn(rg0));
- jit_unget_reg(rg1);
- jit_unget_reg(rg0);
- }
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- movi(rn(rg1), i0);
- if (!jit_thumb_p() && jit_armv5e_p() && !(r0 & 1))
- STRDI(r0, rn(rg1), 0);
- else {
- stxi_i(0, rn(rg1), r0);
- stxi_i(4, rn(rg1), r0 + 1);
- }
- jit_unget_reg(rg1);
- }
-}
-
-static void
-_swf_stxr_f(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- int32_t reg;
- if (jit_fpr_p(r2)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r2) + 8);
- stxr_i(r1, r0, rn(reg));
- jit_unget_reg(reg);
- }
- else
- stxr_i(r0, r1, r2);
-}
-
-static void
-_swf_stxr_d(jit_state_t *_jit, int32_t r0, int32_t r1, int32_t r2)
-{
- int32_t rg0, rg1;
- if (jit_fpr_p(r2)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- (rg0 = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDIN(rn(rg0), _FP_REGNO, swf_off(r2) + 8);
- STRD(rn(rg0), r0, r1);
- jit_unget_reg_pair(rg0);
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- addr(rn(rg1), r0, r1);
- rg0 = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r2) + 8);
- stxi_i(0, rn(rg1), rn(rg0));
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r2) + 4);
- stxi_i(4, rn(rg1), rn(rg0));
- jit_unget_reg(rg0);
- jit_unget_reg(rg1);
- }
- }
- else {
- if (!jit_thumb_p() && jit_armv5e_p() && !(r2 & 1))
- STRD(r0, r1, r2);
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- addr(rn(rg1), r0, r1);
- stxi_i(0, rn(rg1), r2);
- stxi_i(4, rn(rg1), r2 + 1);
- jit_unget_reg(rg1);
- }
- }
-}
-
-static void
-_swf_stxi_f(jit_state_t *_jit, jit_word_t i0, int32_t r0, int32_t r1)
-{
- int32_t reg;
- if (jit_fpr_p(r1)) {
- reg = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(reg), _FP_REGNO, swf_off(r1) + 8);
- stxi_i(i0, r0, rn(reg));
- jit_unget_reg(reg);
- }
- else
- stxi_i(i0, r0, r1);
-}
-
-static void
-_swf_stxi_d(jit_state_t *_jit, jit_word_t i0, int32_t r0, int32_t r1)
-{
- int32_t rg0, rg1;
- if (jit_fpr_p(r1)) {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- ((i0 >= 0 && i0 <= 255) || (i0 < 0 && i0 >= -255)) &&
- (rg0 = jit_get_reg_pair()) != JIT_NOREG) {
- LDRDIN(rn(rg0), _FP_REGNO, swf_off(r1) + 8);
- if (i0 >= 0 && i0 <= 255)
- STRDI(rn(rg0), r0, i0);
- else
- STRDIN(rn(rg0), r0, -i0);
- jit_unget_reg_pair(rg0);
- }
- else if (i0 >= 0 && i0 + 4 <= 4095) {
- rg0 = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r1) + 8);
- stxi_i(i0, r0, rn(rg0));
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r1) + 4);
- stxi_i(i0 + 4, r0, rn(rg0));
- jit_unget_reg(rg0);
- }
- else if (i0 < 0 && ((jit_thumb_p() && i0 >= -255) ||
- (!jit_thumb_p() && i0 >= -4095))) {
- rg0 = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r1) + 8);
- swf_strin(rn(rg0), r0, -i0);
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r1) + 4);
- swf_strin(rn(rg0), r0, -(i0 + 4));
- jit_unget_reg(rg0);
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- addi(rn(rg1), r0, i0);
- rg0 = jit_get_reg(jit_class_gpr);
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r1) + 8);
- stxi_i(0, rn(rg1), rn(rg0));
- swf_ldrin(rn(rg0), _FP_REGNO, swf_off(r1) + 4);
- stxi_i(4, rn(rg1), rn(rg0));
- jit_unget_reg(rg0);
- jit_unget_reg(rg1);
- }
- }
- else {
- if (!jit_thumb_p() && jit_armv5e_p() &&
- i0 >= 0 && i0 <= 255 && !(r1 & 1))
- STRDI(r1, r0, i0);
- else if (!jit_thumb_p() && jit_armv5e_p() &&
- i0 < 0 && i0 >= -255 && !(r1 & 1))
- STRDIN(r1, r0, -i0);
- else if (i0 >= 0 && i0 + 4 <= 4095) {
- stxi_i(i0, r0, r1);
- stxi_i(i0 + 4, r0, r1 + 1);
- }
- else if (i0 < 0 && ((jit_thumb_p() && i0 >= 255) ||
- (!jit_thumb_p() && i0 >= -4095))) {
- swf_strin(r1, r0, -i0);
- swf_strin(r1 + 1, r0, -(i0 + 4));
- }
- else {
- rg1 = jit_get_reg(jit_class_gpr);
- addi(rn(rg1), r0, i0);
- stxi_i(0, rn(rg1), r1);
- stxi_i(4, rn(rg1), r1 + 1);
- jit_unget_reg(rg1);
- }
- }
-}
-
-static void
-_swf_vaarg_d(jit_state_t *_jit, int32_t r0, int32_t r1)
-{
- int32_t reg;
-
- assert(_jitc->function->self.call & jit_call_varargs);
-
- /* Adjust pointer. */
- reg = jit_get_reg(jit_class_gpr);
- andi(rn(reg), r1, 7);
- addr(r1, r1, rn(reg));
- jit_unget_reg(reg);
-
- /* Load argument. */
- swf_ldr_d(r0, r1);
-
- /* Update stack pointer. */
- addi(r1, r1, sizeof(jit_float64_t));
-}
-
-#endif
diff --git a/lightening/arm.c b/lightening/arm.c
index 0df4781..12a7286 100644
--- a/lightening/arm.c
+++ b/lightening/arm.c
@@ -98,7 +98,6 @@ extern void __clear_cache(void *, void *);
#define PROTO 1
# include "rewind.c"
# include "arm-cpu.c"
-# include "arm-swf.c"
# include "arm-vfp.c"
#undef PROTO
@@ -2007,8 +2006,7 @@ _emit_code(jit_state_t *_jit)
#define CODE 1
# include "rewind.c"
# include "arm-cpu.c"
-# include "arm-swf.c"
-# include ", 2018arm-vfp.c"
+# include "arm-vfp.c"
#undef CODE
void
diff --git a/tests/Makefile b/tests/Makefile
index 02d34af..2a04850 100644
--- a/tests/Makefile
+++ b/tests/Makefile
@@ -1,5 +1,6 @@
TESTS=$(sort $(basename $(wildcard *.c)))
TARGETS=native ia32 aarch64
+ALL_TARGETS=$(TARGETS) armv7
# Suitable values of cross-compiler variables for Debian:
#
@@ -19,6 +20,7 @@ TARGETS=native ia32 aarch64
CC = gcc
CC_IA32=guix environment --pure -s i686-linux --ad-hoc gcc-toolchain glibc --
gcc
CC_AARCH64=guix environment --pure -s aarch64-linux --ad-hoc gcc-toolchain
glibc -- gcc
+CC_ARMv7=guix environment --pure -s armhf-linux --ad-hoc gcc-toolchain glibc
-- gcc
CFLAGS = -Wall -O0 -g
all: $(foreach TARGET,$(TARGETS),$(addprefix test-$(TARGET)-,$(TESTS)))
@@ -49,9 +51,13 @@ test-aarch64-%: CC = $(CC_AARCH64)
test-aarch64-%: %.c lightening-aarch64.o test.h
$(CC) $(CFLAGS) $(CPPFLAGS) -I.. -o $@ lightening-aarch64.o $<
-.PRECIOUS: $(foreach TARGET,$(TARGETS),$(addprefix test-$(TARGET)-,$(TESTS)))
-.PRECIOUS: $(foreach TARGET,$(TARGETS),lightening-$(TARGET).o)
+test-armv7-%: CC = $(CC_ARMv7)
+test-armv7-%: %.c lightening-armv7.o test.h
+ $(CC) $(CFLAGS) $(CPPFLAGS) -I.. -o $@ lightening-armv7.o $<
+
+.PRECIOUS: $(foreach TARGET,$(ALL_TARGETS),$(addprefix
test-$(TARGET)-,$(TESTS)))
+.PRECIOUS: $(foreach TARGET,$(ALL_TARGETS),lightening-$(TARGET).o)
clean:
- rm -f $(foreach TARGET,$(TARGETS),$(addprefix test-$(TARGET)-,$(TESTS)))
- rm -f $(foreach TARGET,$(TARGETS),lightening-$(TARGET).o)
+ rm -f $(foreach TARGET,$(ALL_TARGETS),$(addprefix
test-$(TARGET)-,$(TESTS)))
+ rm -f $(foreach TARGET,$(ALL_TARGETS),lightening-$(TARGET).o)
- [Guile-commits] 21/34: Attempt to fix CI on Debian for AArch64, (continued)
- [Guile-commits] 21/34: Attempt to fix CI on Debian for AArch64, Andy Wingo, 2019/05/20
- [Guile-commits] 08/34: Fix compilation on aarch64, Andy Wingo, 2019/05/20
- [Guile-commits] 30/34: Add ARMv7 testing to CI, Andy Wingo, 2019/05/20
- [Guile-commits] 31/34: Attempt to get CI working on ARMv7, Andy Wingo, 2019/05/20
- [Guile-commits] 33/34: Update README, Andy Wingo, 2019/05/20
- [Guile-commits] 29/34: ARMv7 backend passing all tests!, Andy Wingo, 2019/05/20
- [Guile-commits] 05/34: Rework register saving to avoid push/pop, Andy Wingo, 2019/05/20
- [Guile-commits] 28/34: ARMv7 backend compiling without warnings, Andy Wingo, 2019/05/20
- [Guile-commits] 22/34: Update README and guix invocations in test suite, Andy Wingo, 2019/05/20
- [Guile-commits] 32/34: Fix CI on ARMv7, Andy Wingo, 2019/05/20
- [Guile-commits] 23/34: Remove software floating-point ARMv7 support; ARMv7 test env,
Andy Wingo <=
- [Guile-commits] 27/34: Beginnings of VFP port to lightening, Andy Wingo, 2019/05/20
- [Guile-commits] 26/34: Port of arm-cpu.c to current lightening, Andy Wingo, 2019/05/20
- [Guile-commits] 03/34: First pass at aarch64 assembler port, Andy Wingo, 2019/05/20
- [Guile-commits] 25/34: Beginnings of ARMv7 backend, Andy Wingo, 2019/05/20