Skip to content
Snippets Groups Projects
Commit 20f70797 authored by wlott's avatar wlott
Browse files

Removed % from start of the constants.

parent b2f0db18
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.4 1990/02/09 13:51:37 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/cell.lisp,v 1.5 1990/02/13 17:13:15 wlott Exp $
;;; ;;;
;;; This file contains the VM definition of various primitive memory access ;;; This file contains the VM definition of various primitive memory access
;;; VOPs for the MIPS. ;;; VOPs for the MIPS.
...@@ -18,23 +18,25 @@ ...@@ -18,23 +18,25 @@
;;; ;;;
(in-package "VM") (in-package "VM")
(export '(%cons-car-slot %cons-cdr-slot (export '(cons-car-slot cons-cdr-slot
%symbol-value-slot %symbol-function-slot %symbol-plist-slot symbol-value-slot symbol-function-slot symbol-plist-slot
%symbol-name-slot %symbol-package-slot symbol-name-slot symbol-package-slot
%array-fill-pointer-slot %array-elements-slot %array-data-slot vector-length-slot vector-data-offset
%array-displacement-slot %array-displaced-p-slot
%array-dimensions-offset
%code-code-size-slot %code-entry-points-slot %code-debug-info-slot array-fill-pointer-slot array-elements-slot array-data-slot
%code-constants-offset array-displacement-slot array-displaced-p-slot
array-dimensions-offset
%function-header-self-slot %function-header-next-slot code-code-size-slot code-entry-points-slot code-debug-info-slot
%function-header-name-slot %function-header-arglist-slot code-constants-offset
%function-header-type-slot %function-header-code-offset
%closure-function-slot %closure-info-offset)) function-header-self-slot function-header-next-slot
function-header-name-slot function-header-arglist-slot
function-header-type-slot function-header-code-offset
closure-function-slot closure-info-offset))
(in-package "C") (in-package "C")
...@@ -85,14 +87,14 @@ ...@@ -85,14 +87,14 @@
,@(nreverse load-time)))) ,@(nreverse load-time))))
(defslots (%cons :lowtag list-pointer-type :header nil) (defslots (cons :lowtag list-pointer-type :header nil)
(car :ref-vop car :ref-trans car (car :ref-vop car :ref-trans car
:set-vop set-car :set-trans %rplaca) :set-vop set-car :set-trans %rplaca)
(cdr :ref-vop cdr :ref-trans cdr (cdr :ref-vop cdr :ref-trans cdr
:set-vop set-cdr :set-trans %rplacd)) :set-vop set-cdr :set-trans %rplacd))
(defslots (%symbol :lowtag other-pointer-type) (defslots (symbol :lowtag other-pointer-type)
(value :set-vop set :set-trans set) (value :set-vop set :set-trans set)
(function :set-vop set-symbol-function :set-trans %sp-set-definition) (function :set-vop set-symbol-function :set-trans %sp-set-definition)
(plist :ref-vop symbol-plist :ref-trans symbol-plist (plist :ref-vop symbol-plist :ref-trans symbol-plist
...@@ -102,7 +104,12 @@ ...@@ -102,7 +104,12 @@
:set-vop set-package)) :set-vop set-package))
(defslots (%array :lowtag other-pointer-type) (defslots (vector :lowtag other-pointer-type)
length
&rest
data)
(defslots (array :lowtag other-pointer-type)
fill-pointer fill-pointer
elements elements
data data
...@@ -111,14 +118,14 @@ ...@@ -111,14 +118,14 @@
&rest &rest
dimensions) dimensions)
(defslots (%code :lowtag other-pointer-type) (defslots (code :lowtag other-pointer-type)
code-size code-size
entry-points entry-points
debug-info debug-info
&rest &rest
constants) constants)
(defslots (%function-header :lowtag function-pointer-type) (defslots (function-header :lowtag function-pointer-type)
self self
next next
name name
...@@ -127,7 +134,7 @@ ...@@ -127,7 +134,7 @@
&rest &rest
code) code)
(defslots (%closure :lowtag function-pointer-type) (defslots (closure :lowtag function-pointer-type)
function function
&rest &rest
info) info)
...@@ -154,7 +161,7 @@ ...@@ -154,7 +161,7 @@
(:translate symbol-value) (:translate symbol-value)
(:generator 9 (:generator 9
(move obj-temp object) (move obj-temp object)
(loadw value obj-temp %symbol-value-slot) (loadw value obj-temp symbol-value-slot)
#+nil #+nil
(let ((err-lab (generate-error-code node clc::error-symbol-unbound (let ((err-lab (generate-error-code node clc::error-symbol-unbound
obj-temp))) obj-temp)))
...@@ -167,7 +174,7 @@ ...@@ -167,7 +174,7 @@
(:translate symbol-function) (:translate symbol-function)
(:generator 10 (:generator 10
(move obj-temp object) (move obj-temp object)
(loadw value obj-temp %symbol-function-slot) (loadw value obj-temp symbol-function-slot)
#+nil #+nil
(let ((err-lab (generate-error-code node clc::error-symbol-undefined (let ((err-lab (generate-error-code node clc::error-symbol-undefined
obj-temp))) obj-temp)))
...@@ -212,12 +219,12 @@ ...@@ -212,12 +219,12 @@
(define-vop (fast-symbol-value cell-ref) (define-vop (fast-symbol-value cell-ref)
(:variant %symbol-value-slot other-pointer-type) (:variant symbol-value-slot other-pointer-type)
(:policy :fast) (:policy :fast)
(:translate symbol-value)) (:translate symbol-value))
(define-vop (fast-symbol-function cell-ref) (define-vop (fast-symbol-function cell-ref)
(:variant %symbol-function-slot other-pointer-type) (:variant symbol-function-slot other-pointer-type)
(:policy :fast) (:policy :fast)
(:translate symbol-function)) (:translate symbol-function))
......
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