[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
- [Gcl-devel] [PATCH 01/11] config.{sub, guess}: Update to latest versions of GNU config, (continued)
- [Gcl-devel] [PATCH 01/11] config.{sub, guess}: Update to latest versions of GNU config, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 03/11] Add support for AArch64, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 04/11] Reorder code to avoid problems with dis-asm.h defining DEFUN., Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 02/11] o/main.c: Ensure cs_org is always pointer aligned, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 06/11] Check for preceding NULL in find_init_name1, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 07/11] Fix handling of varargs in sSuniversal_error_handler, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 05/11] Always pass a va_list as the last arg of call_proc_new, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 10/11] Reduce threshold for increasing maxpage, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 09/11] Avoid looking up dynamic symbols in the executable, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 08/11] Handle dladdr failure correctly, Will Newton, 2014/06/11
- [Gcl-devel] [PATCH 11/11] Hack to disable x86 floating point code,
Will Newton <=
- Re: [Gcl-devel] [PATCH 00/11] Add support for AArch64, Camm Maguire, 2014/06/11