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

Remove special support for fluids in GDB interface

Browse source 
* module/system/base/types.scm (inferior-fluid?, inferior-fluid-number)
  (<inferior-fluid>): Remove.  Fluids won't have numbers in the future.
  (cell->object): Adapt.
* test-suite/tests/types.test ("opaque objects"): Update.
This commit is contained in:
Andy Wingo 2016-11-26 15:17:07 +01:00
parent fa4a22971a
commit 0dcca77754
2 changed files with 4 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

22
module/system/base/types.scm
View file

@ -42,9 +42,6 @@
inferior-object-sub-kind inferior-object-sub-kind
inferior-object-address inferior-object-address
inferior-fluid?
inferior-fluid-number
inferior-struct? inferior-struct?
inferior-struct-name inferior-struct-name
inferior-struct-fields inferior-struct-fields
@ -311,21 +308,6 @@ the matching bits, possibly with bitwise operations to extract it from BITS."
(set-record-type-printer! <inferior-struct> print-inferior-struct) (set-record-type-printer! <inferior-struct> print-inferior-struct)
;; Fluids.
(define-record-type <inferior-fluid>
(inferior-fluid number value)
inferior-fluid?
(number inferior-fluid-number)
(value inferior-fluid-value))
(set-record-type-printer! <inferior-fluid>
(lambda (fluid port)
(match fluid
(($ <inferior-fluid> number)
(format port "#<fluid ~a ~x>"
number
(object-address fluid))))))
;; Object type to represent complex objects from the inferior process that ;; Object type to represent complex objects from the inferior process that
;; cannot be really converted to usable Scheme objects in the current ;; cannot be really converted to usable Scheme objects in the current
;; process. ;; process.
@ -459,8 +441,8 @@ using BACKEND."
vector))) vector)))
(((_ & #x7f = %tc7-wvect)) (((_ & #x7f = %tc7-wvect))
(inferior-object 'weak-vector address)) ; TODO: show elements (inferior-object 'weak-vector address)) ; TODO: show elements
((((n << 8) || %tc7-fluid) init-value) (((_ & #x7f = %tc7-fluid) init-value)
(inferior-fluid n #f)) ; TODO: show current value (inferior-object 'fluid address))
(((_ & #x7f = %tc7-dynamic-state)) (((_ & #x7f = %tc7-dynamic-state))
(inferior-object 'dynamic-state address)) (inferior-object 'dynamic-state address))
((((flags+type << 8) || %tc7-port)) ((((flags+type << 8) || %tc7-port))

7
test-suite/tests/types.test
View file

@ -108,11 +108,8 @@
((make-doubly-weak-hash-table) weak-table _) ((make-doubly-weak-hash-table) weak-table _)
(#2((1 2 3) (4 5 6)) array _) (#2((1 2 3) (4 5 6)) array _)
(#*00000110 bitvector _) (#*00000110 bitvector _)
((expt 2 70) bignum _)) ((expt 2 70) bignum _)
((make-fluid) fluid _)))
(pass-if "fluid"
(let ((fluid (make-fluid)))
(inferior-fluid? (scm->object (object-address fluid))))))
(define-record-type <some-struct> (define-record-type <some-struct>
(some-struct x y z) (some-struct x y z)