diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-02 16:21:17 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-02 16:26:17 +0200 |
commit | cf25a94745fc733af38db65fa62584ebba92bf93 (patch) | |
tree | 14c2f0a8000abddad1191afbc68bd0dab6064294 /module/system/vm/assembler.scm | |
parent | 532df66e0734a205d1e65b149bde7e1111c4000b (diff) | |
download | guile-cf25a94745fc733af38db65fa62584ebba92bf93.tar.gz |
Add tc7 for finalizer objects
Whippet will need this.
* libguile/scm.h (scm_tc7_finalizer): Reserve.
* libguile/evalext.c (scm_self_evaluating_p): Add finalizer case.
* libguile/print.c (iprin1):
* libguile/finalizers.h:
* libguile/finalizers.c (scm_i_print_finalizer): Arrange to print
finalizers.
* module/oop/goops.scm (<finalizer>):
* libguile/goops.c (class_finalizer, scm_class_of)
(scm_sys_goops_early_init): Wire up support for <finalizer>.
* module/system/base/types/internal.scm (heap-tags): Add finalizers.
* module/system/vm/assembler.scm (system): Add emit-finalizer?.
Diffstat (limited to 'module/system/vm/assembler.scm')
-rw-r--r-- | module/system/vm/assembler.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index c9435c6bd..6bfb703f2 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -137,6 +137,7 @@ emit-weak-table? emit-array? emit-bitvector? + emit-finalizer? emit-port? emit-smob? emit-bignum? |