Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
cmucl
cmucl
Commits
7df234a8
Commit
7df234a8
authored
Nov 16, 2007
by
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
Changes
4
Hide whitespace changes
Inline
Side-by-side
lisp/alpha-arch.c
View file @
7df234a8
/*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.
9
2007/
0
1/
01 11:53:02
cshapiro Exp $
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/alpha-arch.c,v 1.
10
2007/
1
1/
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
)
{
...
...
lisp/amd64-arch.c
View file @
7df234a8
/* 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 0
5:04:09
cshapiro Exp $
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/amd64-arch.c,v 1.
6
2007/11/16 0
6:52:25
cshapiro Exp $
*
*/
...
...
@@ -314,8 +314,6 @@ sigtrap_handler(HANDLER_ARGS)
}
}
#define FIXNUM_VALUE(lispobj) (((int) lispobj) >> 2)
void
arch_install_interrupt_handlers
()
{
...
...
lisp/mips-arch.c
View file @
7df234a8
/*
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.1
0
200
5/09/15 18:26:52 rtoy
Exp $
$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/mips-arch.c,v 1.1
1
200
7/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
;
...
...
lisp/x86-arch.c
View file @
7df234a8
/* 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 0
5:04:09
cshapiro Exp $
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/x86-arch.c,v 1.
30
2007/11/16 0
6:52:25
cshapiro Exp $
*
*/
...
...
@@ -290,8 +290,6 @@ sigtrap_handler(HANDLER_ARGS)
}
}
#define FIXNUM_VALUE(lispobj) (((int) lispobj) >> 2)
void
arch_install_interrupt_handlers
()
{
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment