From 7df234a8a52dfdbb2e20a2c97faff933bd70ee2b Mon Sep 17 00:00:00 2001 From: cshapiro <cshapiro> Date: Fri, 16 Nov 2007 06:52:25 +0000 Subject: [PATCH] Remove unused FIXNUM_VALUE definitions. Replace actual uses of this macro in with fixnum_value which is defined in lisp.h. --- lisp/alpha-arch.c | 4 +--- lisp/amd64-arch.c | 4 +--- lisp/mips-arch.c | 14 ++++++-------- lisp/x86-arch.c | 4 +--- 4 files changed, 9 insertions(+), 17 deletions(-) diff --git a/lisp/alpha-arch.c b/lisp/alpha-arch.c index d526a6dbe..931ceebf8 100644 --- a/lisp/alpha-arch.c +++ b/lisp/alpha-arch.c @@ -1,6 +1,6 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.9 2007/01/01 11:53:02 cshapiro Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.10 2007/11/16 06:52:25 cshapiro Exp $ This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. @@ -318,8 +318,6 @@ sigtrap_handler(int signal, int code, struct sigcontext *scp) } } -#define FIXNUM_VALUE(lispobj) (((int)lispobj)>>2) - static void sigfpe_handler(int signal, int code, struct sigcontext *scp) { diff --git a/lisp/amd64-arch.c b/lisp/amd64-arch.c index 6fc80ecd3..6fbcd9316 100644 --- a/lisp/amd64-arch.c +++ b/lisp/amd64-arch.c @@ -1,6 +1,6 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.5 2007/11/16 05:04:09 cshapiro Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.6 2007/11/16 06:52:25 cshapiro Exp $ * */ @@ -314,8 +314,6 @@ sigtrap_handler(HANDLER_ARGS) } } -#define FIXNUM_VALUE(lispobj) (((int) lispobj) >> 2) - void arch_install_interrupt_handlers() { diff --git a/lisp/mips-arch.c b/lisp/mips-arch.c index b0f13f3ab..c694ecd5b 100644 --- a/lisp/mips-arch.c +++ b/lisp/mips-arch.c @@ -1,6 +1,6 @@ /* - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.10 2005/09/15 18:26:52 rtoy Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.11 2007/11/16 06:52:25 cshapiro Exp $ This code was written as part of the CMU Common Lisp project at Carnegie Mellon University, and has been placed in the public domain. @@ -257,8 +257,6 @@ sigtrap_handler(int signal, int code, struct sigcontext *scp) } } -#define FIXNUM_VALUE(lispobj) (((int)lispobj)>>2) - static void sigfpe_handler(int signal, int code, struct sigcontext *scp) { @@ -293,15 +291,15 @@ sigfpe_handler(int signal, int code, struct sigcontext *scp) return; } result = - FIXNUM_VALUE(scp->sc_regs[rs]) + - FIXNUM_VALUE(scp->sc_regs[rt]); + fixnum_value(scp->sc_regs[rs]) + + fixnum_value(scp->sc_regs[rt]); dest = rd; break; case 0x22: /* SUB */ result = - FIXNUM_VALUE(scp->sc_regs[rs]) - - FIXNUM_VALUE(scp->sc_regs[rt]); + fixnum_value(scp->sc_regs[rs]) - + fixnum_value(scp->sc_regs[rt]); dest = rd; break; @@ -312,7 +310,7 @@ sigfpe_handler(int signal, int code, struct sigcontext *scp) break; case 0x8: /* ADDI */ - result = FIXNUM_VALUE(scp->sc_regs[rs]) + (immed >> 2); + result = fixnum_value(scp->sc_regs[rs]) + (immed >> 2); dest = rt; break; diff --git a/lisp/x86-arch.c b/lisp/x86-arch.c index 66eb08f18..d511a4d4c 100644 --- a/lisp/x86-arch.c +++ b/lisp/x86-arch.c @@ -1,6 +1,6 @@ /* x86-arch.c -*- Mode: C; comment-column: 40 -*- * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.29 2007/11/16 05:04:09 cshapiro Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.30 2007/11/16 06:52:25 cshapiro Exp $ * */ @@ -290,8 +290,6 @@ sigtrap_handler(HANDLER_ARGS) } } -#define FIXNUM_VALUE(lispobj) (((int) lispobj) >> 2) - void arch_install_interrupt_handlers() { -- GitLab