mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-05 11:40:20 +02:00
Define some extra fp-common macros when sizeof(long) == sizeof(int).
This commit is contained in:
parent
8665ce16da
commit
7b330c81b9
1 changed files with 21 additions and 0 deletions
|
@ -91,6 +91,27 @@
|
|||
#define jit_extr_d_f(rd, rs) jit_movr_d(rd, rs)
|
||||
#endif
|
||||
|
||||
#if !defined(__WORDSIZE) || __WORDSIZE == 32
|
||||
# if !defined(jit_extr_l_f)
|
||||
# define jit_extr_l_f(rd, rs) jit_extr_i_f(rd, rs)
|
||||
# endif
|
||||
# if !defined(jit_extr_l_d)
|
||||
# define jit_extr_l_d(rd, rs) jit_extr_i_d(rd, rs)
|
||||
# endif
|
||||
# if !defined(jit_roundr_f_l)
|
||||
# define jit_roundr_f_l(rd, rs) jit_roundr_f_i(rd, rs)
|
||||
# define jit_truncr_f_l(rd, rs) jit_truncr_f_i(rd, rs)
|
||||
# define jit_floorr_f_l(rd, rs) jit_floorr_f_i(rd, rs)
|
||||
# define jit_ceilr_f_l(rd, rs) jit_ceilr_f_i(rd, rs)
|
||||
# endif
|
||||
# if !defined(jit_roundr_d_l)
|
||||
# define jit_roundr_d_l(rd, rs) jit_roundr_d_i(rd, rs)
|
||||
# define jit_truncr_d_l(rd, rs) jit_truncr_d_i(rd, rs)
|
||||
# define jit_floorr_d_l(rd, rs) jit_floorr_d_i(rd, rs)
|
||||
# define jit_ceilr_d_l(rd, rs) jit_ceilr_d_i(rd, rs)
|
||||
# endif
|
||||
#endif
|
||||
|
||||
#ifndef jit_beqr_f
|
||||
#define jit_beqr_f(lab, a, b) jit_beqr_d(lab, a, b)
|
||||
#define jit_bner_f(lab, a, b) jit_bner_d(lab, a, b)
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue