void Scm_CharSetDump(ScmCharSet *cs, ScmPort *port) { Scm_Printf(port, "CharSet %p\nmask:", cs); for (int i=0; i<SCM_BITS_NUM_WORDS(SCM_CHAR_SET_SMALL_CHARS); i++) { #if SIZEOF_LONG == 4 Scm_Printf(port, "[%08lx]", cs->small[i]); #else Scm_Printf(port, "[%016lx]", cs->small[i]); #endif } Scm_Printf(port, "\nranges:"); Scm_TreeCoreDump(&cs->large, port); Scm_Printf(port, "\n"); }
ScmBits *Scm_MakeBits(int numbits) { return SCM_NEW_ATOMIC_ARRAY(ScmBits, SCM_BITS_NUM_WORDS(numbits)); }