diff options
author | Andy Wingo <wingo@pobox.com> | 2025-05-14 16:09:31 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2025-05-14 16:12:11 +0200 |
commit | 1e06be2fa8233819b88606330bd9d1a84a14b28d (patch) | |
tree | 3aa720c384731dc3ecd9864ebaa8f5393ae9dcc9 /module | |
parent | 4138d3c646c72845ac4946fc6e22c155c067b12b (diff) | |
download | guile-1e06be2fa8233819b88606330bd9d1a84a14b28d.tar.gz |
Remove weak sets
* libguile/weak-set.c:
* libguile/weak-set.h: Remove.
* libguile.h:
* libguile/Makefile.am: Adapt build and includes.
* libguile/scm.h: Remove weak set tc7.
* libguile/evalext.c:
* libguile/hash.c:
* libguile/ioext.c:
* libguile/ports.c:
* libguile/print.c: Remove weak-set includes and tc7 cases.
* libguile/init.c: No need to init weak sets.
* module/language/cps/compile-bytecode.scm:
* module/system/base/types.scm:
* module/system/base/types/internal.scm:
* module/system/vm/assembler.scm: Adapt to tc7 change.
Diffstat (limited to 'module')
-rw-r--r-- | module/language/cps/compile-bytecode.scm | 1 | ||||
-rw-r--r-- | module/system/base/types.scm | 2 | ||||
-rw-r--r-- | module/system/base/types/internal.scm | 3 | ||||
-rw-r--r-- | module/system/vm/assembler.scm | 1 |
4 files changed, 1 insertions, 6 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm index 8ff16cfa5..41a359cd3 100644 --- a/module/language/cps/compile-bytecode.scm +++ b/module/language/cps/compile-bytecode.scm @@ -505,7 +505,6 @@ (#('vm-continuation? #f (a)) (unary emit-vm-continuation? a)) (#('bytevector? #f (a)) (unary emit-bytevector? a)) (#('thread? #f (a)) (unary emit-thread? a)) - (#('weak-set? #f (a)) (unary emit-weak-set? a)) (#('array? #f (a)) (unary emit-array? a)) (#('bitvector? #f (a)) (unary emit-bitvector? a)) (#('smob? #f (a)) (unary emit-smob? a)) diff --git a/module/system/base/types.scm b/module/system/base/types.scm index 9347dcc51..5ecdea4cd 100644 --- a/module/system/base/types.scm +++ b/module/system/base/types.scm @@ -461,8 +461,6 @@ using BACKEND." (cell->object source backend))) (((_ & #x7f = %tc7-vm-continuation)) (inferior-object 'vm-continuation address)) - (((_ & #x7f = %tc7-weak-set)) - (inferior-object 'weak-set address)) (((_ & #x7f = %tc7-array)) (inferior-object 'array address)) (((_ & #x7f = %tc7-bitvector)) diff --git a/module/system/base/types/internal.scm b/module/system/base/types/internal.scm index a0370eddc..8d7f29088 100644 --- a/module/system/base/types/internal.scm +++ b/module/system/base/types/internal.scm @@ -51,7 +51,6 @@ %tc7-vm-continuation %tc7-bytevector %tc7-thread - %tc7-weak-set %tc7-array %tc7-bitvector %tc7-port @@ -147,7 +146,7 @@ (vm-continuation vm-continuation? #b1111111 #b1000111) (bytevector bytevector? #b1111111 #b1001101) (thread thread? #b1111111 #b1001111) - (weak-set weak-set? #b1111111 #b1010101) + ;;(unused unused #b1111111 #b1010101) ;;(unused unused #b1111111 #b1010111) (array array? #b1111111 #b1011101) (bitvector bitvector? #b1111111 #b1011111) diff --git a/module/system/vm/assembler.scm b/module/system/vm/assembler.scm index d931dcd78..d92399b26 100644 --- a/module/system/vm/assembler.scm +++ b/module/system/vm/assembler.scm @@ -132,7 +132,6 @@ emit-vm-continuation? emit-bytevector? emit-thread? - emit-weak-set? emit-array? emit-bitvector? emit-ephemeron? |