| author | Camm Maguire <camm@transcendence.maguirefamily.org> | 2025年04月27日 10:54:59 -0400 |
|---|---|---|
| committer | Camm Maguire <camm@transcendence.maguirefamily.org> | 2025年04月27日 10:54:59 -0400 |
| commit | 1d1362e2b38eb7f4f07e7f983d7fcb55fe43f5e9 (patch) | |
| tree | be38e80af546eae3cceee515c30481490dd7c890 /gcl/h/linux.h | |
| parent | 49cd106307bf75edc3f35bd476ebf6d84e8e139f (diff) | |
| download | gcl-c23.tar.gz | |
| -rw-r--r-- | gcl/h/linux.h | 4 |
diff --git a/gcl/h/linux.h b/gcl/h/linux.h index 13b899191..7e532ce86 100644 --- a/gcl/h/linux.h +++ b/gcl/h/linux.h @@ -165,7 +165,7 @@ do { int c = 0; \ #else #define FPE_TCODE(x_) \ - {ufixnum _x=(x_),_y=0; \ + ({ufixnum _x=(x_),_y=0; \ switch(_x) { \ case FPE_FLTINV: _y=FE_INVALID;break; \ case FPE_FLTDIV: _y=FE_DIVBYZERO;break; \ @@ -174,7 +174,7 @@ do { int c = 0; \ case FPE_FLTRES: _y=FE_INEXACT;break; \ } \ _y; \ - } + }) #define FPE_CODE(i_,v_) make_fixnum(FPE_TCODE((fixnum)SF(i_)->si_code)) #define FPE_ADDR(i_,v_) make_fixnum((fixnum)SF(i_)->si_addr) #define FPE_CTXT(v_) Cnil |