From 281eed7dda8536b984d3f0ab83f8af9e7f49bd1b Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 23 Mar 2021 07:32:17 -0600 Subject: [PATCH] Chez Scheme: fix some typos --- racket/src/ChezScheme/s/cmacros.ss | 2 +- racket/src/ChezScheme/s/mkgc.ss | 2 +- racket/src/ChezScheme/s/mkheader.ss | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/racket/src/ChezScheme/s/cmacros.ss b/racket/src/ChezScheme/s/cmacros.ss index 23144cdb8c..a486029d6d 100644 --- a/racket/src/ChezScheme/s/cmacros.ss +++ b/racket/src/ChezScheme/s/cmacros.ss @@ -854,7 +854,7 @@ (define-constant type-exactnum #b01010110) (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-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 (define-constant type-code #b00111110) (define-constant type-port #b11001110) diff --git a/racket/src/ChezScheme/s/mkgc.ss b/racket/src/ChezScheme/s/mkgc.ss index 6a4ef32370..7a47e47234 100644 --- a/racket/src/ChezScheme/s/mkgc.ss +++ b/racket/src/ChezScheme/s/mkgc.ss @@ -393,7 +393,7 @@ (count countof-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 (space (cond diff --git a/racket/src/ChezScheme/s/mkheader.ss b/racket/src/ChezScheme/s/mkheader.ss index 400c91de04..0b565afb7b 100644 --- a/racket/src/ChezScheme/s/mkheader.ss +++ b/racket/src/ChezScheme/s/mkheader.ss @@ -339,9 +339,9 @@ (def "Sstencil_vector_length(x)" (format "Spopcount(((uptr)~a)>>~d)" - (access "x" vector type) + (access "x" stencil-vector type) ($ stencil-vector-mask-offset))) - (defref Sstencil_vector_ref vector data) + (defref Sstencil_vector_ref stencil-vector data) (export "iptr" "Sinteger_value" "(ptr)") (def "Sunsigned_value(x)" "(uptr)Sinteger_value(x)")