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

Export lots of symbols and don't bother to qualify defknown attributes,

'cause they are now exported.
parent 87e859e9
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU) ;;; Lisp, please contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU)
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.1 1990/11/03 03:15:57 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/objdef.lisp,v 1.2 1990/11/13 22:53:30 wlott Exp $
;;; ;;;
;;; This file contains the machine independent aspects of the object ;;; This file contains the machine independent aspects of the object
;;; representation. ;;; representation.
...@@ -17,12 +17,32 @@ ...@@ -17,12 +17,32 @@
(in-package "VM") (in-package "VM")
(export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask (export '(lowtag-bits lowtag-mask lowtag-limit type-bits type-mask
primitive-object primitive-object-p primitive-object-name target-most-positive-fixnum target-most-negative-fixnum
primitive-object-header primitive-object-lowtag even-fixnum-type function-pointer-type other-immediate-0-type
primitive-object-options primitive-object-slots list-pointer-type odd-fixnum-type structure-pointer-type
primitive-object-size primitive-object-variable-length other-immediate-1-type other-pointer-type bignum-type ratio-type
slot-name slot-docs slot-rest-p slot-offset slot-length single-float-type double-float-type complex-type
slot-options define-for-each-primitive-object)) simple-array-type simple-string-type simple-bit-vector-type
simple-vector-type simple-array-unsigned-byte-2-type
simple-array-unsigned-byte-4-type
simple-array-unsigned-byte-8-type
simple-array-unsigned-byte-16-type
simple-array-unsigned-byte-32-type simple-array-single-float-type
simple-array-double-float-type complex-string-type
complex-bit-vector-type complex-vector-type complex-array-type
code-header-type function-header-type closure-header-type
closure-function-header-type return-pc-header-type
value-cell-header-type symbol-header-type base-character-type
sap-type unbound-marker-type weak-pointer-type
structure-header-type vector-normal-subtype
vector-valid-hashing-subtype vector-must-rehash-subtype
primitive-object primitive-object-p
primitive-object-name primitive-object-header
primitive-object-lowtag primitive-object-options
primitive-object-slots primitive-object-size
primitive-object-variable-length slot-name slot-docs slot-rest-p
slot-offset slot-length slot-options
define-for-each-primitive-object))
...@@ -238,7 +258,7 @@ ...@@ -238,7 +258,7 @@
:setf-vop c::set-car :set-trans c::%rplaca :setf-vop c::set-car :set-trans c::%rplaca
:init :arg) :init :arg)
(cdr :ref-vop cdr :ref-trans cdr (cdr :ref-vop cdr :ref-trans cdr
:setf-vop c::set-cdr :set-trans c::%rplacd :setf-vop set-cdr :set-trans c::%rplacd
:init :arg)) :init :arg))
(define-primitive-object (bignum :lowtag other-pointer-type (define-primitive-object (bignum :lowtag other-pointer-type
...@@ -273,40 +293,40 @@ ...@@ -273,40 +293,40 @@
:header t) :header t)
(fill-pointer :type index (fill-pointer :type index
:ref-trans %array-fill-pointer :ref-trans %array-fill-pointer
:ref-known (c::flushable c::foldable) :ref-known (flushable foldable)
:set-trans (setf %array-fill-pointer) :set-trans (setf %array-fill-pointer)
:set-known (c::unsafe)) :set-known (unsafe))
(fill-pointer-p :type (member t nil) (fill-pointer-p :type (member t nil)
:ref-trans %array-fill-pointer-p :ref-trans %array-fill-pointer-p
:ref-known (c::flushable c::foldable) :ref-known (flushable foldable)
:set-trans (setf %array-fill-pointer-p) :set-trans (setf %array-fill-pointer-p)
:set-known (c::unsafe)) :set-known (unsafe))
(elements :type index (elements :type index
:ref-trans %array-available-elements :ref-trans %array-available-elements
:ref-known (c::flushable c::foldable) :ref-known (flushable foldable)
:set-trans (setf %array-available-elements) :set-trans (setf %array-available-elements)
:set-known (c::unsafe)) :set-known (unsafe))
(data :type array (data :type array
:ref-trans %array-data-vector :ref-trans %array-data-vector
:ref-known (c::flushable c::foldable) :ref-known (flushable foldable)
:set-trans (setf %array-data-vector) :set-trans (setf %array-data-vector)
:set-known (c::unsafe)) :set-known (unsafe))
(displacement :type (or index null) (displacement :type (or index null)
:ref-trans %array-displacement :ref-trans %array-displacement
:ref-known (c::flushable c::foldable) :ref-known (flushable foldable)
:set-trans (setf %array-displacement) :set-trans (setf %array-displacement)
:set-known (c::unsafe)) :set-known (unsafe))
(displaced-p :type (member t nil) (displaced-p :type (member t nil)
:ref-trans %array-displaced-p :ref-trans %array-displaced-p
:ref-known (c::flushable c::foldable) :ref-known (flushable foldable)
:set-trans (setf %array-displaced-p) :set-trans (setf %array-displaced-p)
:set-known (c::unsafe)) :set-known (unsafe))
(dimensions :rest-p t)) (dimensions :rest-p t))
(define-primitive-object (vector :lowtag other-pointer-type :header t) (define-primitive-object (vector :lowtag other-pointer-type :header t)
(length :ref-trans c::vector-length (length :ref-trans c::vector-length
:type index :type index
:ref-known (c::flushable c::foldable)) :ref-known (flushable foldable))
(data :rest-p t :c-type "unsigned long")) (data :rest-p t :c-type "unsigned long"))
(define-primitive-object (code :lowtag other-pointer-type :header t) (define-primitive-object (code :lowtag other-pointer-type :header t)
...@@ -315,7 +335,7 @@ ...@@ -315,7 +335,7 @@
:set-vop c::set-code-entry-points) :set-vop c::set-code-entry-points)
(debug-info :type t (debug-info :type t
:ref-trans di::code-debug-info :ref-trans di::code-debug-info
:ref-known (c::flushable) :ref-known (flushable)
:set-vop c::set-code-debug-info) :set-vop c::set-code-debug-info)
(constants :rest-p t)) (constants :rest-p t))
...@@ -324,15 +344,15 @@ ...@@ -324,15 +344,15 @@
(self :ref-vop c::function-self :set-vop c::set-function-self) (self :ref-vop c::function-self :set-vop c::set-function-self)
(next :ref-vop c::function-next :set-vop c::set-function-next) (next :ref-vop c::function-next :set-vop c::set-function-next)
(name :ref-vop c::function-name (name :ref-vop c::function-name
:ref-known (c::flushable) :ref-known (flushable)
:ref-trans %function-header-name :ref-trans %function-header-name
:set-vop c::set-function-name) :set-vop c::set-function-name)
(arglist :ref-vop c::function-arglist (arglist :ref-vop c::function-arglist
:ref-known (c::flushable) :ref-known (flushable)
:ref-trans lisp::%function-header-arglist :ref-trans lisp::%function-header-arglist
:set-vop c::set-function-arglist) :set-vop c::set-function-arglist)
(type :ref-vop c::function-type (type :ref-vop c::function-type
:ref-known (c::flushable) :ref-known (flushable)
:ref-trans lisp::%function-header-type :ref-trans lisp::%function-header-type
:set-vop c::set-function-type) :set-vop c::set-function-type)
(code :rest-p t :c-type "unsigned char")) (code :rest-p t :c-type "unsigned char"))
...@@ -345,7 +365,7 @@ ...@@ -345,7 +365,7 @@
:alloc-vop c::make-closure) :alloc-vop c::make-closure)
(function :init :arg (function :init :arg
:ref-vop c::closure-function :ref-vop c::closure-function
:ref-known (c::flushable) :ref-known (flushable)
:ref-trans %closure-function) :ref-trans %closure-function)
(info :rest-p t :set-vop c::closure-init :ref-vop c::closure-ref)) (info :rest-p t :set-vop c::closure-init :ref-vop c::closure-ref))
...@@ -379,14 +399,14 @@ ...@@ -379,14 +399,14 @@
:header weak-pointer-type :header weak-pointer-type
:alloc-trans c::%make-weak-pointer) :alloc-trans c::%make-weak-pointer)
(value :ref-trans c::%weak-pointer-value (value :ref-trans c::%weak-pointer-value
:ref-known (c::flushable) :ref-known (flushable)
:set-trans (setf c::%weak-pointer-value) :set-trans (setf c::%weak-pointer-value)
:set-known (c::unsafe) :set-known (unsafe)
:init :arg) :init :arg)
(broken :ref-trans c::%weak-pointer-broken (broken :ref-trans c::%weak-pointer-broken
:ref-known (c::flushable) :ref-known (flushable)
:set-trans (setf c::%weak-pointer-broken) :set-trans (setf c::%weak-pointer-broken)
:set-known (c::unsafe) :set-known (unsafe)
:init :arg) :init :arg)
(next :c-type "struct weak_pointer *")) (next :c-type "struct weak_pointer *"))
......
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