diff options
author | Andy Wingo <wingo@pobox.com> | 2018-10-07 16:42:21 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-10-07 16:44:13 +0200 |
commit | 5787f4e516a13d0439bc871e34831eb50c175d88 (patch) | |
tree | 786ba666fa4b682f5497f4b118b7facceea58a8d | |
parent | 8bcba78eda6d25a2a64e329619958d210085d3b2 (diff) | |
download | guile-5787f4e516a13d0439bc871e34831eb50c175d88.tar.gz |
Fix -Wunused-function error for x86 not on sun
* libguile/lightning/lib/jit_x86-x87.c (_fstcwm): Surround definition
with ifdef(sun).
-rw-r--r-- | libguile/lightning/lib/jit_x86-x87.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/libguile/lightning/lib/jit_x86-x87.c b/libguile/lightning/lib/jit_x86-x87.c index 95e9e9f19..f6fc8831c 100644 --- a/libguile/lightning/lib/jit_x86-x87.c +++ b/libguile/lightning/lib/jit_x86-x87.c @@ -1,5 +1,5 @@ /* - * Copyright (C) 2012-2017 Free Software Foundation, Inc. + * Copyright (C) 2012-2018 Free Software Foundation, Inc. * * This file is part of GNU lightning. * @@ -37,8 +37,10 @@ # define x87rx(code, md, rb, ri, ms) _x87rx(_jit, code, md, rb, ri, ms) # define fldcwm(md, rb, ri, ms) x87rx(015, md, rb, ri, ms) # define fstcwm(md, rb, ri, ms) _fstcwm(_jit, md, rb, ri, ms) +#if defined(sun) static void _fstcwm(jit_state_t*, jit_int32_t, jit_int32_t, jit_int32_t, jit_int32_t); +#endif # define fldsm(md, rb, ri, ms) x87rx(010, md, rb, ri, ms) # define fstsm(md, rb, ri, ms) x87rx(012, md, rb, ri, ms) # define fldlm(md, rb, ri, ms) x87rx(050, md, rb, ri, ms) @@ -422,6 +424,7 @@ _x87_b##name##i_##type(jit_state_t *_jit, \ # define dopi(name) fpr_opi(name, d, 64) # define dbopi(name) fpr_bopi(name, d, 64) +#if defined(sun) static void _fstcwm(jit_state_t *_jit, jit_int32_t md, jit_int32_t rb, jit_int32_t ri, jit_int32_t ms) @@ -430,6 +433,7 @@ _fstcwm(jit_state_t *_jit, jit_int32_t md, rex(0, 1, rb, ri, _NOREG); x87rx(017, md, rb, ri, ms); } +#endif static void _x87rx(jit_state_t *_jit, jit_int32_t code, jit_int32_t md, |