mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-29 22:40:34 +02:00
Code Activity

Rename "number" tag to "heap-number"

Browse source 
* module/system/base/types/internal.scm (heap-tags): Rename number to
  heap-number.
* module/system/vm/assembler.scm: Adapt for emit-heap-number?.
* module/system/base/types.scm (%tc7-heap-number): Rename from
  %tc7-number.
This commit is contained in:
Andy Wingo 2017-10-29 11:25:26 +01:00
parent 3ae245bc98
commit b4db70854b
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -417,7 +417,7 @@ using BACKEND."
(port (memory-port backend address (sizeof double)))
(words (get-bytevector-n port (sizeof double))))
(bytevector-ieee-double-ref words 0 (native-endianness))))
(((_ & #x7f = %tc7-number) mpi)
(((_ & #x7f = %tc7-heap-number) mpi)
(inferior-object 'number address))
(((_ & #x7f = %tc7-hash-table) buckets meta-data unused)
(inferior-object 'hash-table address))

6
module/system/base/types/internal.scm
View file

@ -36,7 +36,7 @@
%tc7-vector
%tc7-weak-vector
%tc7-string
%tc7-number
%tc7-heap-number
%tc7-hash-table
%tc7-pointer
%tc7-fluid
@ -120,7 +120,7 @@
(vector vector? #b1111111 #b0001101)
(weak-vector weak-vector? #b1111111 #b0001111)
(string string? #b1111111 #b0010101)
(number number? #b1111111 #b0010111)
(heap-number heap-number? #b1111111 #b0010111)
(hash-table hash-table? #b1111111 #b0011101)
(pointer pointer? #b1111111 #b0011111)
(fluid fluid? #b1111111 #b0100101)
@ -148,7 +148,7 @@
(port port? #b1111111 #b1111101)
;;(unused unused #b1111111 #b1111111)
;(number number? #b1111111 #b0010111)
;(heap-number heap-number? #b1111111 #b0010111)
(bignum bignum? #b111111111111 #b000100010111)
(flonum flonum? #b111111111111 #b001000010111)
(complex complex? #b111111111111 #b001100010111)

2
module/system/vm/assembler.scm
View file

@ -103,7 +103,7 @@
emit-vector?
emit-weak-vector?
emit-string?
emit-number?
emit-heap-number?
emit-hash-table?
emit-pointer?
emit-fluid?