mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-15 10:10:21 +02:00
Code Activity

Implementation of new design

Browse source 
Documentation to come, as tests get added and things settle down.
This commit is contained in:
Andy Wingo 2019-03-22 15:20:40 +01:00
parent 0d81c5c337
commit bad7e34c83
18 changed files with 4333 additions and 7149 deletions
Download patch file Download diff file Expand all files Collapse all files

6
jit/hppa-cpu.c
View file

@ -655,10 +655,10 @@ static jit_word_t _movi_p(jit_state_t*,int32_t,jit_word_t);
#define extr_s(r0,r1) EXTRWR(r1,31,16,r0)
#define extr_us(r0,r1) EXTRWR_U(r1,31,16,r0)
#if __BYTE_ORDER == __BIG_ENDIAN
# define htonr_us(r0,r1) extr_us(r0,r1)
# define htonr_ui(r0,r1) movr(r0,r1)
# define bswapr_us(r0,r1) extr_us(r0,r1)
# define bswapr_ui(r0,r1) movr(r0,r1)
#else
# error need htonr implementation
# error need bswapr implementation
#endif
#define addr(r0,r1,r2) ADD(r1,r2,r0)
#define addi(r0,r1,i0) _addi(_jit,r0,r1,i0)