summaryrefslogtreecommitdiff
path: root/module/oop
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2017-09-26 20:47:27 +0200
committerAndy Wingo <wingo@pobox.com>2017-09-26 20:47:27 +0200
commitf32500acca82f13824e0d6d06836411f9d0c9c01 (patch)
tree566bce688217951e921f5af1be40f6ebc09e3b0b /module/oop
parentc3a81128478bed4a65a509d3a3a7074b712e94fd (diff)
downloadguile-f32500acca82f13824e0d6d06836411f9d0c9c01.tar.gz
Add new vtable reserved unboxed field
* libguile/struct.h (SCM_VTABLE_BASE_LAYOUT) (scm_vtable_index_reserved_6): Add a reserved field. * module/oop/goops.scm (fold-class-slots, unboxed-slot?): Reserve a new unboxed field.
Diffstat (limited to 'module/oop')
-rw-r--r--module/oop/goops.scm5
1 files changed, 3 insertions, 2 deletions
diff --git a/module/oop/goops.scm b/module/oop/goops.scm
index bd5cc7522..4bde684e7 100644
--- a/module/oop/goops.scm
+++ b/module/oop/goops.scm
@@ -190,7 +190,8 @@
(print)
(name #:class <protected-hidden-slot>)
(nfields #:class <hidden-slot>)
- (%reserved #:class <hidden-slot>)
+ (%reserved-6 #:class <hidden-slot>)
+ (%reserved-7 #:class <hidden-slot>)
(direct-supers)
(direct-slots)
(direct-subclasses)
@@ -739,7 +740,7 @@ followed by its associated value. If @var{l} does not hold a value for
(define (read-only-slot? slot) #f)
(define (unboxed-slot? slot)
(memq (%slot-definition-name slot)
- '(flags instance-finalizer nfields %reserved)))
+ '(flags instance-finalizer nfields %reserved-6 %reserved-7)))
(define (allocate-slots class slots)
"Transform the computed list of direct slot definitions @var{slots}