// // Dump_Series: C // void Dump_Series(REBSER *series, const char *memo) { if (!series) return; Debug_Fmt( "%s Series %x \"%s\":" " wide: %2d" " size: %6d" " bias: %d" " tail: %d" " rest: %d" " flags: %x", memo, series, "-", // !label SER_WIDE(series), SER_TOTAL(series), SER_BIAS(series), SER_LEN(series), SER_REST(series), series->info.bits // flags + width ); if (Is_Array_Series(series)) { Dump_Values(ARR_HEAD(AS_ARRAY(series)), SER_LEN(series)); } else Dump_Bytes( SER_DATA_RAW(series), (SER_LEN(series) + 1) * SER_WIDE(series) ); }
*/ void Dump_Series(REBSER *series, REBYTE *memo) /* ***********************************************************************/ { if (!series) return; Debug_Fmt( Str_Dump[0], //"%s Series %x %s: Wide: %2d - Bias: %d Tail: %d Rest: %d Size: %6d" memo, series, (SERIES_LABEL(series) ? SERIES_LABEL(series) : "-"), SERIES_WIDE(series), SERIES_BIAS(series), SERIES_TAIL(series), SERIES_REST(series), SERIES_TOTAL(series) ); if (SERIES_WIDE(series) == sizeof(REBVAL)) Dump_Values(BLK_HEAD(series), SERIES_TAIL(series)); else Dump_Bytes(series->data, (SERIES_TAIL(series)+1) * SERIES_WIDE(series)); }