diff options
| author | Andy Wingo <wingo@pobox.com> | 2016-11-26 15:17:07 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2016-11-26 15:43:33 +0100 |
| commit | 0dcca77754302e8bad4af82113d952ef243271bd (patch) | |
| tree | 47a20d3b20db8a82d98cbb04e862f214a3b1bc76 /module/system/base | |
| parent | fa4a22971a122e30e6b167bfe7ac209d02ffafc4 (diff) | |
Remove special support for fluids in GDB interface
* 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.
Diffstat (limited to 'module/system/base')
| -rw-r--r-- | module/system/base/types.scm | 22 |
1 files changed, 2 insertions, 20 deletions
diff --git a/module/system/base/types.scm b/module/system/base/types.scm index cf3c7c9d2..652c9223f 100644 --- a/module/system/base/types.scm +++ b/module/system/base/types.scm @@ -42,9 +42,6 @@ inferior-object-sub-kind inferior-object-address - inferior-fluid? - inferior-fluid-number - inferior-struct? inferior-struct-name 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) -;; 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 ;; cannot be really converted to usable Scheme objects in the current ;; process. @@ -459,8 +441,8 @@ using BACKEND." vector))) (((_ & #x7f = %tc7-wvect)) (inferior-object 'weak-vector address)) ; TODO: show elements - ((((n << 8) || %tc7-fluid) init-value) - (inferior-fluid n #f)) ; TODO: show current value + (((_ & #x7f = %tc7-fluid) init-value) + (inferior-object 'fluid address)) (((_ & #x7f = %tc7-dynamic-state)) (inferior-object 'dynamic-state address)) ((((flags+type << 8) || %tc7-port)) |