Skip to content
Snippets Groups Projects
Commit 7df234a8 authored by cshapiro's avatar cshapiro
Browse files

Remove unused FIXNUM_VALUE definitions. Replace actual uses of

this macro in with fixnum_value which is defined in lisp.h.
parent 87de7c42
No related branches found
No related tags found
No related merge requests found
/*
$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)
{
......
/* 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()
{
......
/*
$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;
......
/* 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()
{
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment