gcl.git - GNU Common Lisp

diff --git a/gcl/h/att_ext.h b/gcl/h/att_ext.h
index e00b5c6de..4c39db720 100644
--- a/gcl/h/att_ext.h
+++ b/gcl/h/att_ext.h

@@ -418,4 +418,4 @@ EXTER object sSPmemory;

EXTER object sSPinit;

/* string.d */

-int (*casefun)();

+int (*casefun)(int,int *);

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