## pickler-sumtype-tags.pkg
#
# For background, see comments in
#
#
src/lib/compiler/src/library/pickler.pkg#
# Pickler sumtype tags need to be globally unique,
# so we collect them here in one place rather than
# scattering them through the various pickler client
# packages.
# Compiled by:
#
src/lib/compiler/src/library/pickle.libpackage pickler_sumtype_tags {
# Datatype tags for some common types.
# These are used (only) in:
#
#
src/lib/compiler/src/library/pickler.pkg
#
int = -1;
unt = -2;
one_word_int = -3;
one_word_unt = -4;
list = -5;
null_or = -6;
pair = -7;
string = -8;
bool = -9;
# Datatype tags used (only) in
#
#
src/lib/compiler/front/semantic/pickle/symbol-and-picklehash-pickling.pkg #
symbol = -100;
picklehash = -101;
# Datatype tags used (only) in
#
#
src/app/makelib/freezefile/freezefile-g.pkg #
bn = 1001; # UNUSED
thawedlib_tome = 1002;
tome = 1003;
symbolset = 1004; # sys::Set
thawed_tome = 1005;
far_tome = 1006;
catalog_entry = 1007; # (sy::Symbol, lg::Fat_Tome) -- one entry from lg::LIBRARY.catalog
sharing_mode = 1008;
sublibraries = 1009; # "g"
absolute_path = 1010; #
prim = 1011; # UNUSED.
catalog = 1012; # sym::Map(lg::Fat_Tome) -- the type of lg::LIBRARY.catalog
priv = 1013;
makelib_version_intlist = 1014; # mvi::Makelib_Version_Intlist
library_thunk = 1015; # lg::Library_Thunk
rebinding = 1016; # "rb" == "rebinding"
# Uniqtypoidcode sumtype tags used (only) in:
#
#
src/lib/compiler/front/semantic/pickle/pickler-junk.pkg #
# Uniqtype info:
#
type = 22;
# my ( type_nk, type_ao, type_co, type_po, type_cs, type_a, type_cr, type_lt, type_tc, type_tk,
# type_v, type_c, type_e, type_fk, type_rk, type_st, type_mi, type_eqp, type_tyckind, type_dti,
# type_dtf, type_type, type_t, type_i, type_var, type_sd, type_sg, type_fsg, type_sp, type_en,
# type_str, type_f, type_ste, type_tce, type_stre, type_fe, type_ee, type_ed, type_eev, type_fx,
# type_b, type_valcon, type_dictionary, type_fprim, type_fundec, type_tfundec, type_enum_constructor, type_dtmem, type_nrd, type_overld,
# type_fctc, type_sen, type_fen, type_symbol_path, type_inverse_path, type_strid, type_fctid, type_cci, type_ctype, type_ccall_type
# )
# =
# ( 1, 2, 3, 4, 5, 6, 7, 8, 9, 10,
# 11, 12, 13, 14, 15, 16, 17, 18, 19, 20,
# 21, 22, 23, 24, 25, 26, 27, 28, 29, 30,
# 31, 32, 33, 34, 35, 36, 37, 38, 39, 40,
# 41, 42, 43, 44, 45, 46, 47, 48, 49, 50,
# 51, 52, 53, 54, 55, 56, 57, 58, 59, 60
# );
# Datatype tags used (only) in
#
#
src/app/makelib/compilable/module-dependencies-summary-io.pkg #
symbol_path = 1;
mds_declaration = 2; # Declaration from
src/app/makelib/compilable/module-dependencies-summary.pkg mds_module_expression = 3; # Module_Expression from
src/app/makelib/compilable/module-dependencies-summary.pkg};