gcl-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Gcl-devel] [PATCH 11/11] Hack to disable x86 floating point code


From: Will Newton
Subject: [Gcl-devel] [PATCH 11/11] Hack to disable x86 floating point code
Date: Wed, 11 Jun 2014 17:27:24 +0100

From: Will Newton <address@hidden>

---
 gcl/o/main.c | 3 +++
 gcl/o/usig.c | 4 ++--
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/gcl/o/main.c b/gcl/o/main.c
index c8defb7..59025fb 100644
--- a/gcl/o/main.c
+++ b/gcl/o/main.c
@@ -1076,6 +1076,7 @@ 
DEFUN("DISASSEMBLE-INSTRUCTION",object,fSdisassemble_instruction,SI,1,1,NONE,OI,
   return disassemble_instruction(addr);
 }
 
+#if 0
 
 #define MC(b_) v.uc_mcontext.b_
 #define REG_LIST(a_,b_) list(3,make_fixnum((void *)&(a_)-(void 
*)(b_)),make_fixnum(sizeof(a_)),make_fixnum(sizeof(*a_)))
@@ -1126,6 +1127,8 @@ DEFUN("FLD",object,fSfld,SI,1,1,NONE,OI,OO,OO,OO,(fixnum 
val),"") {
   RETURN1(make_longfloat(d));
 }
 
+#endif
+
 DEFCONST("+FE-LIST+",sSPfe_listP,SI,list(5,
                                         
list(3,sLdivision_by_zero,make_fixnum(FPE_FLTDIV),make_fixnum(FE_DIVBYZERO)),
                                         
list(3,sLfloating_point_overflow,make_fixnum(FPE_FLTOVF),make_fixnum(FE_OVERFLOW)),
diff --git a/gcl/o/usig.c b/gcl/o/usig.c
index a727902..a6fa4ea 100644
--- a/gcl/o/usig.c
+++ b/gcl/o/usig.c
@@ -138,11 +138,11 @@ static void
 sigfpe3(int sig,siginfo_t *i,void *p) {
 
   ucontext_t *v=p;
-
+#if 0
   ifuncall3(sSfloating_point_error,make_fixnum((fixnum)i->si_code),
            make_fixnum(v->uc_mcontext.fpregs->fop ? v->uc_mcontext.fpregs->rip 
: (fixnum)i->si_addr),
            make_fixnum((fixnum)v));
-
+#endif
 }
 
 /* static void */
-- 
1.9.3




reply via email to

[Prev in Thread] Current Thread [Next in Thread]