mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-05 11:40:20 +02:00
Code Activity

Define some extra fp-common macros when sizeof(long) == sizeof(int).

Browse source
This commit is contained in:
PCPA 2010-08-28 15:44:08 -03:00 • committed by Paolo Bonzini
parent 8665ce16da
commit 7b330c81b9
1 changed files with 21 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lightning/fp-common.h
View file

@ -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)