mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

Change name of "static" flag indicating static slot allocation

Browse source 
* libguile/goops.h (SCM_VTABLE_FLAG_GOOPS_STATIC_SLOT_ALLOCATION):
  Rename from SCM_VTABLE_FLAG_GOOPS_STATIC.
* libguile/goops.c (scm_init_goops_builtins): Adapt.
* module/oop/goops.scm (class-has-statically-allocated-slots?):
  (initialize): Adapt.
This commit is contained in:
Andy Wingo 2017-09-07 17:05:32 +02:00
parent 95f66b197c
commit 5c8bb13630
3 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/oop/goops.scm
View file

@ -280,7 +280,7 @@
(class-has-flags? (struct-vtable obj) vtable-flag-goops-class))
(define (class-has-statically-allocated-slots? class)
(class-has-flags? class vtable-flag-goops-static))
(class-has-flags? class vtable-flag-goops-static-slot-allocation))
;;;
;;; Now that we know the slots that must be present in classes, and
@ -925,8 +925,8 @@ slots as we go."
;; Now that we're all done with that, mark <class> and <slot> as
;; static.
(class-add-flags! <class> vtable-flag-goops-static)
(class-add-flags! <slot> vtable-flag-goops-static))
(class-add-flags! <class> vtable-flag-goops-static-slot-allocation)
(class-add-flags! <slot> vtable-flag-goops-static-slot-allocation))
@ -2821,7 +2821,7 @@ var{initargs}."
(match (filter class-has-statically-allocated-slots?
(class-precedence-list class))
(()
(class-add-flags! class vtable-flag-goops-static))
(class-add-flags! class vtable-flag-goops-static-slot-allocation))
(classes
(error "Class has superclasses with static slot allocation" classes))))
(struct-set! class class-index-direct-slots