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
c81bfaa0
Commit
c81bfaa0
authored
Mar 23, 1991
by
wlott
Browse files
Moved code-header-{ref,set} from system.lisp to cell.lisp so that it
is later in the load/compile order.
parent
14f5b8b3
Changes
4
Hide whitespace changes
Inline
Side-by-side
compiler/mips/cell.lisp
View file @
c81bfaa0
...
...
@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.5
3
1991/03/2
0 03:08:17
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.5
4
1991/03/2
3 12:30:09
wlott Exp $"
)
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.5
3
1991/03/2
0 03:08:17
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.5
4
1991/03/2
3 12:30:09
wlott Exp $
;;;
;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the MIPS.
...
...
@@ -343,3 +343,17 @@
(
:translate
structure-set
)
(
:variant
structure-slots-offset
structure-pointer-type
)
(
:arg-types
structure
positive-fixnum
*
))
;;;; Code object frobbing.
(
define-vop
(
code-header-ref
word-index-ref
)
(
:translate
code-header-ref
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
(
define-vop
(
code-header-set
word-index-set
)
(
:translate
code-header-set
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
compiler/mips/system.lisp
View file @
c81bfaa0
...
...
@@ -7,11 +7,11 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(
ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.4
1
1991/03/2
0 03:09:03
wlott Exp $"
)
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.4
2
1991/03/2
3 12:30:42
wlott Exp $"
)
;;;
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.4
1
1991/03/2
0 03:09:03
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/system.lisp,v 1.4
2
1991/03/2
3 12:30:42
wlott Exp $
;;;
;;; MIPS VM definitions of various system hacking operations.
;;;
...
...
@@ -227,17 +227,6 @@
;;;; Code object frobbing.
(
define-vop
(
code-header-ref
word-index-ref
)
(
:translate
code-header-ref
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
(
define-vop
(
code-header-set
word-index-set
)
(
:translate
code-header-set
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
(
define-vop
(
code-instructions
)
(
:translate
code-instructions
)
(
:policy
:fast-safe
)
...
...
compiler/sparc/cell.lisp
View file @
c81bfaa0
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.
5
1991/03/2
2
1
4:05:43
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/cell.lisp,v 1.
6
1991/03/2
3
1
2:32:31
wlott Exp $
;;;
;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the SPARC.
...
...
@@ -339,3 +339,17 @@
(
:variant
structure-slots-offset
structure-pointer-type
)
(
:arg-types
structure
positive-fixnum
*
))
;;;; Code object frobbing.
(
define-vop
(
code-header-ref
word-index-ref
)
(
:translate
code-header-ref
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
(
define-vop
(
code-header-set
word-index-set
)
(
:translate
code-header-set
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
compiler/sparc/system.lisp
View file @
c81bfaa0
...
...
@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.
5
1991/03/2
2
1
4:03
:4
7
wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/system.lisp,v 1.
6
1991/03/2
3
1
2:32
:4
2
wlott Exp $
;;;
;;; MIPS VM definitions of various system hacking operations.
;;;
...
...
@@ -216,17 +216,6 @@
;;;; Code object frobbing.
(
define-vop
(
code-header-ref
word-index-ref
)
(
:translate
code-header-ref
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
(
define-vop
(
code-header-set
word-index-set
)
(
:translate
code-header-set
)
(
:policy
:fast-safe
)
(
:variant
0
other-pointer-type
))
(
define-vop
(
code-instructions
)
(
:translate
code-instructions
)
(
:policy
:fast-safe
)
...
...
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