From 27ef5c83cf12440198b548d26cca5bd104c80741 Mon Sep 17 00:00:00 2001 From: Douglas Katzman Date: Thu, 13 Apr 2017 16:31:39 -0400 Subject: [PATCH] Give C widetag names external visibility --- src/compiler/generic/genesis.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/src/compiler/generic/genesis.lisp b/src/compiler/generic/genesis.lisp index 451eeb6a2..15766f4fa 100644 --- a/src/compiler/generic/genesis.lisp +++ b/src/compiler/generic/genesis.lisp @@ -3269,9 +3269,9 @@ core and return a descriptor to it." (tailwise-equal (string symbol) tail)) collect symbol into tags finally (return (sort tags #'< :key #'symbol-value)))) - (write-tags (kind limit ash-count) - (format out "~%static const char *~(~A~)_names[] = {~%" - (subseq kind 1)) + (write-tags (visibility kind limit ash-count) + (format out "~%~Aconst char *~(~A~)_names[] = {~%" + visibility (subseq kind 1)) (let ((tags (list-sorted-tags kind))) (dotimes (i limit) (if (eql i (ash (or (symbol-value (first tags)) -1) ash-count)) @@ -3281,10 +3281,10 @@ core and return a descriptor to it." (write-string "," out)) (terpri out))) (write-line "};" out))) - (write-tags "-LOWTAG" sb!vm:lowtag-limit 0) + (write-tags "static " "-LOWTAG" sb!vm:lowtag-limit 0) ;; this -2 shift depends on every OTHER-IMMEDIATE-?-LOWTAG ;; ending with the same 2 bits. (#b10) - (write-tags "-WIDETAG" (ash (1+ sb!vm:widetag-mask) -2) -2)) + (write-tags "" "-WIDETAG" (ash (1+ sb!vm:widetag-mask) -2) -2)) ;; Inform print_otherptr() of all array types that it's too dumb to print (let ((array-type-bits (make-array 32 :initial-element 0))) (flet ((toggle (b) -- 2.11.4.GIT