suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Chez Scheme: fix some typos

Browse Source
This commit is contained in:
Matthew Flatt 2021-03-23 07:32:17 -06:00
parent 61cca93086
commit 281eed7dda
3 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
racket/src/ChezScheme/s/cmacros.ss
View File

@ -854,7 +854,7 @@
(define-constant type-exactnum #b01010110) (define-constant type-exactnum #b01010110)
(define-constant type-box #b0001110) ; bit 3 set for non-numbers (define-constant type-box #b0001110) ; bit 3 set for non-numbers
(define-constant type-immutable-box #b10001110) ; low 7 bits match `type-box` (define-constant type-immutable-box #b10001110) ; low 7 bits match `type-box`
(define-constant type-stencil-vector #b011110) ; remianing bits for stencil; type looks like immediate (define-constant type-stencil-vector #b011110) ; remaining bits for mask; type looks like immediate
; #b00101110 (forward_marker) must not be used ; #b00101110 (forward_marker) must not be used
(define-constant type-code #b00111110) (define-constant type-code #b00111110)
(define-constant type-port #b11001110) (define-constant type-port #b11001110)

2
racket/src/ChezScheme/s/mkgc.ss
View File

@ -393,7 +393,7 @@
(count countof-vector)] (count countof-vector)]
[stencil-vector [stencil-vector
;; Assumes stencil-vector masks look like fixnums; ;; Assumes stencil-vector tags look like immediates or fixnums;
;; if not, stencil vectors will need their own space ;; if not, stencil vectors will need their own space
(space (space
(cond (cond

4
racket/src/ChezScheme/s/mkheader.ss
View File

@ -339,9 +339,9 @@
(def "Sstencil_vector_length(x)" (def "Sstencil_vector_length(x)"
(format "Spopcount(((uptr)~a)>>~d)" (format "Spopcount(((uptr)~a)>>~d)"
(access "x" vector type) (access "x" stencil-vector type)
($ stencil-vector-mask-offset))) ($ stencil-vector-mask-offset)))
(defref Sstencil_vector_ref vector data) (defref Sstencil_vector_ref stencil-vector data)
(export "iptr" "Sinteger_value" "(ptr)") (export "iptr" "Sinteger_value" "(ptr)")
(def "Sunsigned_value(x)" "(uptr)Sinteger_value(x)") (def "Sunsigned_value(x)" "(uptr)Sinteger_value(x)")